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CPU NORHAL OPERATION SUMMARY 



2501, 1442 OH 1134 BASIC LOADER. 

** BASIC LOADER IS INCLUDED WITH PAPER 
TAPE TEST. 

*** AVAILABLE FOR CARD INPUT ONLY. 



2501, I<t42, OR 1 134 
RELOCATING LOADER 



METER 

TEST 

P/N 2IS12«*9 



CHECK 
USAGE 

METER 



ISOLATE 
FAILURE TO 
CPU OR CORE 




SINGLE STEP 

THROUGH 

FAILING INSTR 

AND REPAIR 



**** 1 


' 




LOADER 










' CORE 
ADJUSTMENT 
P/N 2I9I2U5 










READJUST 

CORE - SEE 

MAINTENANCE 

MANUAL 





IDENTIFY 

CORE FAILURE 

AND REPAIR 



£ 



LOADER 
(LOAD & GO) 



CPU TEST 
P/N 2191205 




<E> 



LOADER 



CORE TEST 
P/N 22*13965 
AND 221*3968 




cT <5 



READER NOT 

ABLE TO 

PROGRAM 

LOAD 



ISOLATE 

FAILURE TO 

CPU PROC LD 

OR RDR. 

REPAIR. 



I 




YES 



CPU TEST 
LOADED OK, 
RUN TEST 




LOADER 



I 



INTEHRUPT 

TEST 

P/N 2)91269 



ISOLATE 

INTERRUPT 

FAILURE 

AND REPAIR 



5 



ONE 
PROGS 

P/N 



ISOLATE AND 
REPAIR 
FAILING 

INSTRUCTION 



5 



1 



ISOLATE 

FAILING 

INSTRUCTION 

AND REPAIR 



6 



I- 2 - 



' MDX AND 
! TO A 
TRANSFER 



INCREMENT 
I CTR 



8SC, SRA, 
h'-J LD, STO, 
EOR 



i CARD I f k ( ADD IT 
ROGS M- +-\ POS A 
2191261 [ f j NEC- 



ION 
AND 
NEG 



STORAGE 
-i ADDRESS 



S IMULATED 

IM«2 D S W 



u. 



XIO AND 

DOUBLE WORD 



BASIC LOADER 

1. LOAD AND GO MODE: PROVIDES NORMAL LOAD FOR CPU AND 
INTERRUPT TESTS. 

2. DIAGNOSTIC MODE: USED ONLY WHEN LOAD AND GO MODE IS INOPERABLE, 
SEE DESCRIPTION FOR DIAGNOSTIC OPERATING INSTRUCTIONS. 



CPU TEST 

1. SET ALL CONSOLE BIT SWITCHES OFF. 

2. LOAD BASIC LOADER FOLLOWED BY CPU TEST DECK AND TWO BLANK CARDS. 

3. PROG WILL LOAD AND STOP WITH B REG AT 3000 ADDR. 0I2D. 
14. SET ALL BIT SWITCHES TO FFFF AND PRESS PROG START. 
5. PROG WILL STOP WITH B REG AT 3001 ADOR. 02B4. 

SET SWITCHES OFF PRESS START. 



*$■'" 



PROG WILL HALT WITH B REG AT 3002 ADDR. 02C5. SEE 3.2 FOR OPTIONS 
AND PRESS START. 

PROG WILL RUN APPROX 2 MIN. THEN STOP AT END OF TEST WITH B REG AT 
3003 ADDR 0F62. 



9. ERRORS ARE INDICATED BY ERROR WAITS, SEE DESCRIPTION SECT. 3.5. 

CORE TEST 

1. SET ALL CONSOLE BIT SWITCHES TO ZERO. 

2. LOAD RELOCATING LOADER FOLLOWED BY HI CORE TEST DECK, LO CORE TEST DECK 
AND TWO BLANK CARDS. 

3. HI CORE WILL LOAD, AND HALT WITH B REG AT 3001. THE CORE SIZE WILL BE IN THE 
ACCUMULATOR. 

k. FRESS START. HI CORE WILL RUN 5 MIN. FOR EACH 8K. 

5. PRESS START. LO CORE WILL LOAD, HALT TO DISPLAY CORE SIZE, RUN APPROX. * 
2 MIN., THEN STOP AT END OF TEST WAIT 30FF, AT LOCATION 09CC. 

6. ERRORS ARE INDICATED BY ERROR WAITS; SEE DESCRIPTION SECT. 3.5. 

CORE ADJUSTMENT 

I. USED ONLY WHEN A CORE VOLTAGE ADJUSTMENT IS NECESSARY. SEE DESCRIPTION. 

ONE CARD PROGRAMS 

1. USED ONLY WHEN PROGRAM LOAD IS FUNCTIONING, BUT THE BASIC DIAGNOSTIC LOADER IS 
UNABLE TO CORRECTLY LOAD THE CPU OR CORE TESTS. SEE DESCRIPTION FOR OPERATION. 

INTERRUPT TEST 

1. USED ONLY TO AID IN DIAGNOSING BASIC LOADER FAILURES IN LOAD AND CO MODE. 
SEE DESCRIPTION FOR OPERATION. 

NOTE I: A HARD ERROR IS A REPEATABLE ERROR WHICH IS CAUSED BY A 

HARDWARE FAILURE. A SOFT ERROR IS AN INTERMITTENT ERROR WHICH 
MAY BE CAUSED BY EITHER AN INTERMITTENT HARDWARE FAILURE OR BY 
MARGINAL CORE VOLTAGE ADJUSTMENT. THE DISTINCTION BETWEEN THE 
TWO IS DIFFICULT AND MUST BE LEFT TO THE DISCRETION OF THE 
INDIVIDUAL CE. 

2: PART NUMBER IS THE SAME FOR BOTH CARD DECK OR PAPER TAPE 
PROGRAM. WHEN ORDERING SPECIFY CARD OR TAPE. 

3: CONTROL OPTION BIT SWITCH SETTINGS ARE FOUND IN THE P R OG RAM 
DESCRIPTION. 
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1. PURPOSE 

THE PURPOSE OF THE 1130 CENTRAL PROCESS UNIT FUNCTION TEST IS TO LOCATE 
FAILING INSTRUCTIONS. EACH SEPARATE CPU INSTRUCTION IS TESTED AND CHECKED 
FOR COMPLIANCE WITH THE PRODUCT SPECIFICATIONS. FEATURES THAT ARE NOT 
UNIQUE TO AN OPERATION CODE (INDEXING, INDIRECT ADDRESSING, ETC.) ARE ALSO 
TESTED. I/O RELATED FEATURES (INTERRUPT, CYCLE STEAL, ETC.) ARE NOT TESTED. 

* PROGRAM RUNNING TIME * 

* 2 USEC MACHINE - APPROXIMATELY 1 MINUTE * 

* 4 USEC MACHINE - APPROXIMATELY 2 MINUTES * 

$*****i(^**4#*****#*******#********##** ******************* ********** ** *********** 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE PROGRAM CAN BE OPERATED BY ITSELF BUT MUST BE LOADED BY THE 1130 
BASIC DIAGNOSTIC LOADER. 

2.2 EQUIPMENT PREREQUISITES 

A. 1130 PC HAVING 4096-WORD STORAGE. 

B. CARD READER OR PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 PROGRAM LOADING 

THE1130 CPU FUNCTION TEST (03A1) IS LOADED BY THE 1130 BASIC LOADER. 
SEE THE 1130 BASIC LOADER DOCUMENTATION FOR THE DESCRIPTION OF THE 
LOADING PROCEDURE. 

3.2 PROGRAM OPERATION 

AFTER THE PROGRAM IS LOADED THE FOLLOWING NORMAL WAITS OCCUR, 



LOCATION 

B REG SYMBOLIC 



3000 
3001 
3002 
3003 



(XOOO) 
(X001) 
(X003) 
(X007) 



DESCRIPTION AND ACTION 

START OF PROGRAM. SET ALL BIT SWITCHES ON. PRESS START. 

TESTING OF BIT SWITCHES ON COMPLETE, TURN OFF, PRESS START. 

TESTING OF BIT SWITCHES OFF COMPLETE SET IN OPTION, PRESS START. 

PROGRAM COMPLETED. PUSH START TO RERUN PROGRAM. IF OTHER WAITS 
OCCUR, REFER TO SECTION 3.5 FOR ERROR ISOLATION. 



ANY WAITS OTHER THAN THOSE ABOVE ARE ERROR WAITS. 
WHEN AN ERROR WAIT IS OBTAINED, 

1. SEE THE PROGRAM LISTING TO DETERMINE THE PROBLEM. ERROR WAITS 
ARE DOCUMENTED AT THE FRONT OF THE PROGRAM LISTING BY THE 
CONTENTS OF THE B REGISTER. 

2. IF THE ERROR WAIT HAS B REGISTER LESS THAN 3069, THE OPERATOR 
CANNOT LOOP ON THAT ERROR. INSTEAD, THE OPERATOR SHOULD SINGLE 
INSTRUCTION STARTING AT THE BEGINNING OF THE FAILING ROUTINE TO 
DETERMINE THE EXACT FAILURE. (SECTION 3.5) 
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3. 



IF THE ERROR WAIT HAS B REGISTER GREATER THAN 3068, THE OPERATOR 
SHOULD, (SECTION 3.5) 



A. LOOP INSTRUCTION BEING TESTED (BIT SW 8 ON) 
OR IF A LARGER LOOP IS DESIRED 

LOCK ON ERROR (BIT SW 12 ON) 

OR 
LOOP ON ROUTINE (BIT SW 10 ON) 

B. SINGLE STEP TO LOCATE THE EXACT FAILURE. 

C. IF NO ERROR OCCURS, BYPASS THE ERROR WAIT (BIT SW 14 ON) AND 
USE A SCOPE TO DETERMINE THE FAILURE. 

TABLE 1 

* DATA ENTRY SWITCHES * DESCRIPTION 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * 
* 

. . . 1 BYPASS ERROR WAIT (SEE NOTE) 

• • • 

1 LOCK ON ERROR 

. 1 LOOP PROGRAM 

1 LOOP ON ROUTINE 

1.- LOOP ON INSTRUCTION BEING TESTED 

1 BYPASS MPL/DIV TEST 



* 
* 

* 
* 
* 
* 

* 



* NOTE- IF ERROR OCCURS, BITS 12 OR 8 MUST BE ON TO MAKE BIT 14 EFFECTIVE. * 
z*************************************************^********* *#*##*$ $#$#*+# *$#**$ 

3.3 TERMINATION 

NORMAL TERMINATION OCCURS WITH PROGRAM STOPPING AT WAIT WITH 
B REG = 3003. 

3.4 RESTART PROCEDURE 

PRESS STOP, RESET, AND START BUTTONS. 

3.5 ERROR WAITS 

THERE ARE TWO TYPES OF ERROR CONDITIONS WHICH CAUSE ERROR WAITS. 

1. ERRORS WHICH USE THE COMMON ERROR CONTROL ROUTINE (FOOO). 

2. ERRORS WHICH OCCUR BEFORE SUFFICIENT PORTIONS OF THE HARDWARE 
HAVE BEEN CHECKED OUT TO ALLOW USE OF THE COMMON ERROR CONTROL 
ROUTINE. 

ERRORS WHICH USE THE COMMON ERROR CONTROL ROUTINE HAVE B REG NUMBERS 
OF /3069 AND UP. WHEN A NUMBERED WAIT OCCURS, BITS 5-15 OF THE STORA 
(B REG = 3XXX). WHEN A NUMBERED WAIT OCCURS, BITS 5-15 OF THE STORAGE 
BUFFER REGISTER GIVE THE ERROR IDENTIFICATION NUMBER. TO FIND THE 
FAILING ROUTINE, LOOK IN THE ERROR IDENTIFICATION TABLE (IN FRONT OF 
THE LISTING) . THIS WILL GIVE YOU THE SYMBOLIC AND ACTUAL STARTING 
ADDRESS OF THE ROUTINE THAT FAILED. 

ERRORS WHICH DO NOT USE THE COMMON ERROR CONTROL ROUTINE HAVE B 
REGISTER FROM /3003 THRU /3068. THE INSTRUCTION REG WILL POINT 
DIRECTLY TO THE FAILING ROUTINE. TO FACILITATE FINDING THE START OF 
A TEST ROUTINE EACH TEST ROUTINE BEGINS WITH A LABEL HAVING AN A OR B 
AS ITS FIRST LETTER. IN THE LISTING EACH ROUTINE IS FURTHER BRACKETED 
BY A SOLID LINE OF ASTRISKS. TO FIND THE FAILING ROUTINE OF ERRORS 
WHICH DO NOT USE THE COMMON ERROR CONTROL START AT THE LOCATION 
SPECIFIED BY THE ERROR WAIT AND WORK UP THE LISTING (BACKWARDS) UNTIL 
THE FIRST SYMBOLIC LOCATION WHICH HAS A LABEL BEGINNING WITH A AND B. 
THIS IS THE START OF THE FAILING ROUTINE. 



TWO WAYS OF LOCATING A FAILURE ARE AS FOLLOWS- 

A. DETERMINE WHAT FAILURE CAUSED THE ERROR WAIT. TO LOCATE THE 
FAILURE, IT IS RECOMMENDED THAT THE PROGRAM BE MANUALLY ENTERED 
AT THE START OF THE FAILING ROUTINE AND SINGLE INSTRUCTION, 
FOLLOWING THE LISTING TO DETERMINE THE EXACT FAILURE. 

B. USE AN OSCILLOSCOPE TO HELP LOCATE THE FAILURE. IF THE FAILURE 
IS IN THE COMMON-ERROR ROUTINE, SIMPLY TURN ON CONSOLE ENTRY 
SWITCH 8 AND DEPRESS START PUSHBUTTON TO LOOP ON THE INSTRUCTION 
BEING TESTED. IF THE FAILURE IS IN THE FIRST PART UF THE 
PROGRAM (BEFORE THE COMMON ERROR ROUTINE INSTRUCTIONS HAVE BEEN 
CHECKED OUT), A BRANCH (MDX) TO THE BEGINNING OF THE ROUTINE MAY 
BE MANUALLY INSERTED IN PLACE OF THE WAIT INSTRUCTION. THEN, THE 
ROUTINE MAY BE LOOPED. 

4. PRINTOUTS (NONE) 

5. COMMENTS 

THE 1130 CPU FUNCTION TEST STARTS WITH VERY SIMPLE INSTRUCTIONS AND 
DETERMINES IF EACH INSTRUCTION PERFORMS TO SPECIFICATIONS. EACH SUCCESSIVE 
ROUTINE ATTEMPTS TO UTILIZE ONLY AN INSTRUCTION THAT HAS NOT BEEN PREVIOUSLY 
TESTED. THE PROGRAM OPTIONS PROVIDE A MEANS FOR CONTINOUSLY LOOPING THE 
ENTIRE PROGRAM AND ALSO ALLOW FAILING ROUTINES TO BE LOOPED. 

AN ATTEMPT IS MADE DURING THE EARLY STAGES OF THE PROGRAM TO DEVELOP THUSE 
INSTRUCTIONS WHICH ALLOW THE USAGE OF THE COMMON CONTROL (FOOE AND F005) AND 
ERROR (FOOO) ROUTINES. AFTER THESE INSTRUCTIONS HAVE BEEN TESTED THE USEk 
THEN HAS THE ABILITY TO REQUEST VARIOUS CONTROL OPTIONS BY MEANS OF THE DATA 
ENTRY SWITCHES. 

5.1 OPERATING MODES 

THE NORMAL MODE OF OPERATION IS WITH THE DATA ENTRY SWITCHES SET TO 
/OOOO. THIS CAUSES A SINGLE PASS THROUGH THE PROGRAM WITH AN ERROR 
WAIT OCCURING IF AN ERROR IS DETECTED. 

IF AN ERROR IS DETECTED AND THE COMMON ERROR WAIT OCCURS, THE USER 
SHOULD TURN ON THE •• LOOP ON ROUTINE " (DATA ENTRY SWITCHES SET TO 
/0020) AND SINGLE INSTRUCTION THROUGH THE FAILING ROUTINE TO ISOLATE 
THE FAILING INSTRUCTION. 

IF THE FAILING ROUTINE DOES NOT FAIL WHEN EXECUTED IN SINGLE 
INSTRUCTION MODE, THE USER CAN TURN ON THE '• BYPASS ERROR WAIT'' 
SWITCH AND THE "LOOP ROUTINE" SWITCH (DATA ENTRY SWITCHES SET TO 
/0022) AND PROCEED TO USE SCOPING TECHNIQUES TO ISOLATE THE FAILURE. 

5.2 PROGRAM LABELS 

LABELS OCCURING IN THE PROGRAM LISTING CAN BE QUICKLY IDENTIFIED 
AS FOLLOWS- 

A. LABELS STARTING WITH A OR B INDICATE THE BEGINNING OF A TEST 
ROUTINE. 

B. LABELS STARTING WITH G, H, J, OR K INDICATE COMMUNICATION 
LABELS WITH A ROUTINE. 

C. LABELS STARTING WITH V OR X ARE RESERVED FOR WAITS. 

D. LABELS STARTING WITH N, R, OR S INDICATE A CONSTANT UR 
WORK AREA. 

E. LABELS STARTING WITH F, W, Z OR U ARE USED IN COMMON OR SPECIAL 
ROUTINES THAT ARE NOT A REGULAR TEST ROUTINE. 

6. APPENDIX (NONE) 
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ABS 3A100020 

0000 ORG /3000 3A100030 

»».,»»,.»»»*».«»»»»»»»»««»»»»»»*»»»»*»***»*«»*«*«»**»»»**»»»**»**»******3A1000<tO 

* 3A100050 

• 3A100060 

• 3A100070 

* 3A100080 

• 3A100090 

* 3A100100 

• 3A100110 

• 3A100120 

• 3A100130 

* 3A100140 

* 3A100150 
» 3A100160 

• 3A100170 
» 3A100180 

* 3A100190 

* 3A100200 
•♦••••»*»*»*»»»*»*»«*»***»**»**»******»*»»»**»*^****»********»**********3A100210 

3A100220 
3A100230 
3A100240 
3A100250 
3A100260 
3A 100270 
3A100280 
3A100290 
3A100300 
3A100310 
3A100320 
3A100330 
3A100340 
3A100350 
3A100360 
3A100370 
3A1003B0 
3A100390 
3A1O04O0 
3A100410 
3A100420 
3A 100430 
3A100440 
3A100450 
3A100460 
3A 100470 
3A100480 
3A 100490 
3A100500 
3A 1005 10 
3A100520 
3A 100530 

»•»»»»»**»»»»«»•»*»*»«•»»»*»«***»***»«**•**•*****»******»*******«»»»**** 3A100540 
B-REG I-REG » A HALT AT 3A100550 

»»»***»»»»»*»»»•**•»*»•»»»*»•»»**«»»***»»»*»**»»*»**«■*«»*******»*»****** 3A1O0560 

* 3A100570 
OC X000C1 1130 AND 1800 3A100580 

• SET DATA ENTRY SWITCHES 3A100590 

* TO /FFFF £ PRESS START 3A100600 

* 3A100610 

• S1800n ALSO SET S/P SMS TO 3A100620 

• /FFOO AND PRESS START 3A100630 

3A100640 
3A100650 
3A100660 
3A 100670 
3A1006B0 
3A100690 



* 
» 
* 

* 
* 

« 

* 
* 

* 
» 
* 



OPERATING INSTRUCTIONS 

BIT SWITCH SETTINGS 

BIT 14 ON BYPASS ERROR WAIT 

BIT 12 OR 8 MUST BE ON TO 
MAKE BIT 14 EFFECTIVE. 

BIT 13 NOT USED 

BIT 12 LOCK ON ERROR 

BIT 11 ON LOOP PROGRAM 

BIT 10 ON LOOP ROUTINE 

BIT 9 NOT USED 



BIT 
BIT 



8 LOOP ON INSTRUCTION BEING 

TESTED 
7 ON BYPASS MPL/DIV TEST 



3000 012E 



3001 02B5 



DC X001C1 SET SENSE/PROG AND 

• DATA ENTRY SWITCHES 

• TO ZEROS AND PRESS 

• START 
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3002 02C6 



3C03 0F63 



DC 



DC 



X003C1 



X007U 



SET SWITCHES FOR OPTIONS 
AND PRESS START 

PROGRAM COMPLETED 



3A100700 
3A100710 
3A10072C 
3A100730 
3A10074C 
3A100750 
3A100760 
3A100770 
3A100780 
3A100790 
3A100800 

• 3A100810 

******»»**»*****»***»*»»****»»«»«***»*****»*»»*«»*»»****»***»*»*********3A100820 

ADDRESS * 3A100830 

OF * 3A100£40 

B-REG ROUTINE * A REG REG XR-1 XR-2 XR-3 STATUS 3A100850 

»»»*»»*»»*»»»»»»*»»»»»»»»»*«»»*»»»»»»**»»»»»*»»»*»**»»**»***»»*»»**»***» 3A100860 



• ERROR IDENTIFICATION LISTING 

* 



3004 012E 



3005 
3006 



012E 
012E 



3007 





012E 


3008 





012E 


3009 





012E 


300A 





012E 



3008 012E 



300C 
300D 
300E 



012E 
012E 
012E 



300F 013F 



3010 
3011 



013F 
013F 



3012 013F 



3013 014C 



DC A060 MDX 
SHORT FORM MDX FAILED TO MODIFY 



MDX 



CTR £1 



DC A080 

DC A080 
SHORT FORM MOX-SHOULD HAVE MODIFIED 
£2 BUT MODIFIED BY OR CI 



DC 
OC 
DC 
DC 



A080 
A080 
A080 
A080 



MDX 



SHORT FORM MDX SHOULD HAVE MODIFIED 
£4 BUT MODIFIED BY 0, £1, £2 OR £3 



MODtO 

£1 

1 CTR 



MOD£0 
£1 
£2 
£3 

1 CTR 



MDX 



DC 
SHORT 



A080 MDX 
FORM FAILED TO MODIFY I CTR 



DC A080 MDX MOD£0 

DC A080 tl 

DC A080 £2 

MDX SHORT FORM-SHOULD HAVE MODIFIED I CTR 

-2, DID MODIFY BY Ot tl OR £2 



OC AOCO BSCtC 
N/A N/A N/A N/A N/A 
BSC SKIPPED-SHOULO NOT HAVE 



C£0 



DC 
DC 



BSCtO 



C£0 AFTER 
C AFTER 



LDS 
1ST 



AOCO 

AOCO 
N/A N/A N/A N/A N/A 
N/A N/A N/A N/A N/A 
FIRST BSC SKIPPED-SHOULO NOT HAVE 
SECOND BSC FAILED TO SKIP-INDICATING 1ST BSC 
FAILED TO TURN OFF OVERFLOW 



OC AOCO BSCtC 
N/A N/A N/A N/A N/A OFF 
BSC DID NOT SKIP WITH OVERFLOW OFF 



BSC 



DC A 100 LD 
0000 N/A N/A N/A N/A 
ACCUM NOT EOUAL TO 0000 



N/A 



3A100870 

3A100880 

3A 100 890 

3A100900 

3A100910 

3A10O920 

3A100930 

3A100940 

3A100950 

3A100960 

3A 100970 

3A10O980 

3A 100990 

3A101000 

3A101010 

3A101020 

3A101030 

3A101040 

3A101C50 

3A101060 

3A 10 1070 

3A101080 

3A101090 

3A101100 

3A101110 

3A101120 

3 A 10 11 30 

3A101140 

3A101150 

3A101160 

3A 101 170 

3A101180 

3A101190 

3A101200 

3A101210 

3A101220 

3A101230 

3A101240 

3A101250 

3A101260 

3A101270 

3A101280 

3A101290 

3A101300 

3A101310 

3A101320 

3A101330 

3A101340 

3A101350 

3A101360 

3A101370 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
1A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 2 



*»»»»»•»«*»»*»»**•»»*»»»»»»»*»»*»***»**»**»**»»»»»*♦****•*»***** ****»*»* 
AOORESS • 
OF » 
B-REG ROUTINE • A-REG O-REG XR-1 XR-2 XR-3 STATUS 

»»»»»»#«»»»*»»♦»»*»**»**»*»»»»**»**♦*«»***»»»**»»**♦**♦»»♦♦***»*****»«»* 

3014 014C DC A100 LO 

• 0000 N/A N/A N/A N/A N/A 1ST LO 

• 0000 N/A N/A N/A N/A N/A 2ND LD 

• A LOAD 0000 FOLLOWED BY LOAO 0000 DID NOT 

• LEAVE ACCUM EQUAL TO 0000 

3015 014C OC A100 BSCtE 

• 0000 N/A N/A N/A N/A N/A 

• BSC FA I LEO TO SKIP 



3016 0154 



3017 0154 



3018 0154 



3019 





0154 


301 A 





0154 


301B 





0154 


30 1C 





0154 


3010 





0154 


30 IE 





0154 


301F 





0154 


3020 





0154 


3021 





0154 


3022 





0154 


3023 





0154 


3024 





0154 


3025 





0154 


3026 





0154 


3027 





0154 


3028 





0154 


3029 





0154 



OC A140 LO 
0000 N/A N/A N/A N/A N/A 1ST VALVE 
FFFF N/A N/A N/A N/A N/A AFTER LO 
LOAO FFFF ON TOP OF 0000 DIO NOT LEAVE ACC 
NEGATIVE 



DC A140 
FFFF N/A N/A 



BSCtt 
N/A N/A 



DC A 140 BSCtE 
FFFF N/A N/A N/A N/A 
BSC SKIPPED SHOULO NOT HAVE 



N/A 



N/A 



OC 
OC 
OC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 



FFFF 
0000 



N/A 
N/A 



A140 
A 140 
A140 
A140 
A140 
A140 
A140 
A 140 
A140 
A 140 
A140 
A140 
A140 
A140 
A140 
A140 
A140 
N/A 
N/A 



N/A 
N/A 



ACCOM 


NOT 


EQUAL 


7FFF 


ACCUM 


NOT 


EQUAL 


3FFF 


ACCUM 


NOT 


EOUAL 


1FFF 


ACCUM 


NOT 


EQUAL 


OFFF 


ACCUM 


NOT 


EOUAL 


07FF 


ACCUM 


NOT 


EQUAL 


03FF 


ACCUM 


NOT 


EQUAL 


01FF 


ACCUM 


NOT 


EQUAL 


OOFF 


ACCUM 


NOT 


EQUAL 


007F 


ACCUM 


NOT 


EQUAL 


003F 


ACCUM 


NOT 


EQUAL 


001F 


ACCUM 


NOT 


EQUAL 


OOOF 


ACCUM 


NOT 


EQUAL 


0007 


ACCUM 


NOT 


EQUAL 


0003 


ACCUM 


NOT 


EQUAL 


0001 


ACCUM 


NOT 


EQUAL 


0000 


ACCUM 


NOT 


EQUAL 


0000 


l N/A N/A LOADED 


N/A N/A AFTER S 



• 

• THE ABOVE WAITS OCCUR AS A RESULT OF A 

• FAILURE ON A ROUTINE THAT LOADS FFFF ON 

• 0000 ANO CHECKS USING SRA 1 AND BSC E. 

* 



SRA8S 





302A 01A0 


DC 


A180 


ACCUM 


NOT EQUAL FFFF 




302B 01A0 


DC 


A180 


ACCUM 


NOT EQUAL FFFF 




302C 01A0 


DC 


A180 


ACCUM 


NOT EQUAL 7FFF 




3020 01A0 


DC 


A180 


ACCUM 


NOT EQUAL 3FFF 




302E 0154 


DC 


A140 


ACCUM 


NOT EOUAL 1FFF 




302F 01A0 


DC 


A180 


ACCUM 


NOT EQUAL OFFF 




3030 01A0 


OC 


A180 


ACCUM 


NOT EQUAL 07FF 




3031 01A0 


DC 


A180 


ACCUM 


NOT EQUAL 03FF 


DATE 


02JAN66 01MAY66 


15N0V66 


15FEB6B 


26AUG68 




EC NO. 


415490 415490C 


419643 


420403 


420403A 





3A101380 

3A101390 

3A101400 

3A101410 

3A101420 

3A101430 

3A101440 

3A101450 

3A101460 

3A 10 1470 

3A101480 

3A 10 1490 

3A101500 

3A101510 

3A101520 

3A101530 

3A101540 

3A 10 1550 

3A101560 

3A101570 

3A101580 

3A101590 

3A101600 

3A101610 

3A101620 

3A 10 1630 

3A101640 

3A101650 

3A101660 

3A101670 

3A101680 

3A101690 

3 A} 01700 

3A101710 

3A101720 

3A101730 

3A101740 

3A101750 

3A101760 

3A101770 

3A101780 

3A 10 1790 

3A101800 

3A101B10 

3A101820 

3A101830 

3A101840 

3A101B50 

3A101860 

3A101870 

3A101880 

3A101890 

3A101900 

3A101910 

3A101920 

3A 101930 

3A101940 

3A 10 1950 

3A101960 

3A101970 

3A101980 

3A 10 1990 

3A102000 

3A102010 

3A102020 

3A102030 

3A102040 

3A 102050 



PROG ID 
PAGE 



03A1-1 
2 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
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»»**»***»»*»*»»»****»*»»*»»»»*»»»*»****»»«»*»»»*»»**•»**»******»*»»»»»»» 3 A 10Z060 






ADDRESS 


• 




3A102070 






OF 


• 




3A102080 






B-REG ROUTINE 


* A-REG O-REG 


XR-1 XR-2 XR-3 STATUS 


3A102090 






»»»»»»»»»*»»»»»»»»»»»*»»*»*»•»»**»»»»*»»»»»»**»»»»»»»»»»»»»*»»»*»»*••*** 3A1 02 100 






3032 OlAO 


DC 


A180 ACCUM NOT EQUAL 01FF 


3A 102 110 






3033 01A0 


DC 


A180 ACCUM NOT EOUAL OOFF 


3A102120 






3034 01AO 


DC 


A1S0 ACCUM NOT EOUAL 007F 


3A 102 130 






3035 01A0 


DC 


A180 ACCUM NOT EQUAL 003F 


3A102140 






3036 01A0 


DC 


A 180 ACCUM NOT EOUAL 001F 


3A102150 






3037 01A0 


DC 


A180 ACCUM NOT EQUAL OOOF 


3A102160 






3038 01A0 


DC 


A 180 ACCUM NOT EOUAL 0007 


3A102170 






3039 01AO 


DC 


A180 ACCUM NOT EOUAL 0003 


3A102180 






303A 01A0 


DC 


A180 ACCUM NOT EOUAL 0001 


3A 102 190 






303B 01A0 


DC 


A180 ACCUM NOT FOUAL 0000 


3A102200 






303C 01A0 


DC 


A180 ACCUM NOT EOUAL 0000 


3A102210 








* FFFF N/A 


N/A N/A N/A N/A LOADED 


3A102220 








• 0000 N/A 


N/A N/A N/A N/A AFTER SRA3S 


3A102230 








» THE ABOVE WAITS OCCUR AS A RESULT OF A 


3A102240 








* FAILURE ON 


A ROUTINE THAT LOADS FFFF ON 


3A102250 








• FFFF AND CHECKS USING SRA 1 AND BSC E. 


3A102260 












3A102270 












3A102280 






30 3D 01EB 


OC 


A ICO LD 0000 ON 0000 


3A102290 








• 0000 N/A 


N/A N/A N/A N/A 


3A1 02300 








• ACCUM NOT EOUAL 0000 


3A102310 












3A102320 












3A102330 






303E 01EB 


OC 


A1C0 LO FFFF ON 0000 


3A102340 








* 0000 N/A 


N/A N/A N/A N/A BEFORE LD 


3A102350 








» FFFF N/A 


N/A N/A N/A N/A AFTER LO 


3A 102 360 








• ACCUM NOT EQUAL FFFF 


3A102370 












3A102380 












3A 102390 






303F OIF 5 


OC 


A1D0 LD 


3A102400 








* 0000 N/A 


N/A N/A N/A N/A 


3A102410 








• ACCUM NOT EOUAL 0000 


3A102420 












3A 102430 












3A102440 






3040 01F5 


DC 


A1D0 EOR 


3A 102450 








• 0000 N/A 


N/A N/A N/A N/A 


3A102460 








* 0000 N/A 


N/A N/A N/A N/A 


3A 102470 








* WITH ACCUM 


EQUAL 0000 AN EOR USING 0000 DID 


3A102480 








* NOT RESULT 


IN ACCUM EQUAL 0000 


3A 102490 
3A102500 
3A102510 






3041 01F5 


DC 


A1D0 EOR 


3A102520 








» FFFF N/A 


N/A N/A N/A N/A LOADED £ EOR 


3A 102530 








* 0000 N/A 


N/A N/A N/A N/A SHOULD BE 


3A10254O 








* WITH ACCUM 


EQUAL FFFF AN EOR USING FFFF DID 


3A102550 








* NOT RESULT 


IN ACCUM EQUAL 0000 


3A102560 
3A102570 
3A102580 






3042 01F5 


DC 


A1D0 EOR 


3A102590 






3043 OIF 5 


OC 


A1D0 


3A 102600 








* 0000 N/A 


N/A N/A N/A N/A BEFORE 


3A102610 








* FFFF N/A 


N/A N/A N/A N/A S/B AFTER 


3A 102620 








•WITH ACCUM 


EQUAL 0000 AN EOR USING FFFF 010 


3A 102630 








• NOT RESULT 


IN ACCUM EQUAL FFFF 


3A 102640 
3A 102650 

3A102660 






3044 01F5 


DC 


A1D0 EOR 


3A 102670 








• FFFF N/A 


N/A N/A N/A N/A BEFORE EOR 


3A102680 








« FFFF N/A 


N/A N/A N/A N/A S/B AFTER 


3A 102690 








•WITH ACCUM 


EQUAL FFFF AN EOR USING 0000 OID 


3A 102 700 








• NOT RESULT 


IN ACCUM EOUAL FFFF 


3A102710 
3A102720 
3A 102730 




DATE 


02JAN66 01HAY66 


15N0V66 15FEB68 26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 420403 420403A 


PAGE 


2A 



IB* MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 3 



ADDRESS 
OF 
B-REG ROUTINE 

30*5 01F5 



3046 021* 



30*7 021* 



30*8 0220 
30*9 0220 



30* A 022 



30*B 0220 



30*C 0220 
30*0 0220 



30*E 0220 
30*F 0220 



3050 0220 

3051 022D 



3052 0220 



3053 022D 
305* 0220 



*»*»»*»»»»»*»»********»**»*»»*******»*»*****»»«»**»3A1027*0 

3A102750 

3A102760 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A102770 

»******»**»»**********»*»♦*»»»*****#*»*»*****#***»;» 3A 102780 

OC A1D0 SRA t EOR 3A102790 

7FFF N/A N/A N/A N/A N/A S/B AFTER SRA 3A102B00 
0000 N/A N/A N/A N/A N/A S/B AFTER EOR 3A1C2810 
WITH ACCM EQUAL 7FFF AN EOR USING 7FFF DID NCT 
BESULT IN ACCUM EQUAL TO 0000 
RESULT IN ACCM EQUAL TO 0000 



OC A1E0 LO LONG FORM 
0000 N/A N/A N/A N/A N/A S/B AFTER LD 
ACCUN NOT EQUAL OOOO-INDICATING WRONG 
LOCATION WAS LOADED 



OC A1E0 
C.N1E0. N/A N/A 
0000 N/A N/A 



LD LONG FORM 
N/A N/A N/A S/B AFTER LD 



3A102820 
3A 102 8 30 
3A102B40 
3A 102850 
3A102860 
3A102870 
3A102880 
3A102890 
3A102900 
3A 1029 10 
3A102920 
3A102930 



N/A 



N/A N/A S/B AFTER EOR 3*1029*0 



ACCUM NET EQUAL 0000 INDICATING WRONG LOCATION 
WAS LOADEO 



OC A1F0 LD IND 

OC A1F0 LD IND 
0000 N/A N/A N/A N/A N/A S/B FOR BSC 
ACCUM NOT EQUAL 0000 INDICATING WRONG 
LOCATION WAS LOADED 



DC A200 BSC LONG FORM 
UNCONDITIONAL BSC DID NOT BRANCH 



/ OC A200 BSC LONG FORM 
UNCONDITIONAL BSC SKIPPfcO-SHOULD BRANCH 



DC A200 BSCE LONG FORM 

OC A200 
FFFF N/A N/A N/A N/A N/A 
BSC FELL THRU OR SKIPPED-SHOULD BRANCH 
DID NOT SKIP OR SKIPPED - SHOULD BR. 



OC A200 

OC A200 
FFFF N/A N/A N/A 
DID NOT SKIP OR SKIPPED 



BSCtC LONG FORM 

N/A N/A S/B AT TEST 
SHOULD BR. 



BSCiZ LONG FORM 



OC A200 

OC A200 
FFFF N/A N/A N/A N/A N/A S/B AT TEST 
BSC OID NOT SKIP OR SKIPPED - SHOULD BR. 



DC A200 BSC- LONG FORM 
FFFF N/A N/A N/A N/A N/A S/B AT TEST 
BSC BRANCHED-SHOULD NOT 



BSC.C LONG FORM 
OC A200 
N/A N/A N/A N/A N/A CCO S/B AT TEST 
BSC 010 NOT SKIP OR SKIPPED-SHOULD BRANCH 



DC 


A200 


OC 


A200 


N/A 


N/A 



3A102950 
3A102960 
3A 102970 
3A102980 
3A102990 
3A103000 
3A103010 
3A103020 
3A103030 
3*1030*0 
3A103050 
3A103060 
3A 103070 
3A103080 
3A103090 
3A103100 
3A103110 
3A103120 
3A103130 
3A103140 
3A103150 
3A103160 
3A103170 
3A103180 
3A103190 
3A103200 
3A103210 
3A103220 
3A 10 32 30 
3*1032*0 
3A103250 
3A103260 
3A103270 
3A1032B0 
3A 103290 
3*103300 
3A103310 
3A103320 
3A 103330 
3 A 103340 
3A10335O 
3A103360 
3A103370 
3A1033B0 
3A103390 
3A103400 
3A103410 



DATE 
EC NO. 



02JAN66 
*15*90 



01NAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AUG68 
*2O*03A 



PROG 10 
PAGE 



03A1-1 
3 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE 3A 



B-REG 

3055 

3056 



ADDRESS 

OF 
ROUTINE 

022D 
0220 



<*»******»»»***»»»»»»*»»*»*»»»»»»»»«»»,,»»»»» 



*•*«*•« 



3057 022D 



305B 022D 



3059 0220 



i.05A 
305B 



0220 
02 2D 



305C 022D 



305D 022D 



305E 
305F 



022D 
0220 



3060 0270 



3061 0270 



3062 

3063 



0270 
0270 



306* 0270 



3065 0282 



» A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

»»»««*»»»»**»»*»*»»»»»»»*»»***»*»*»**»»»»*»»,„, 

DC A200 BSCO LONG FORM 

OC A200 

» N/A N/A N/A N/A N/A CCO S/B AT 

» BSC DID NOT SKIP OR SKIPPED-SHOULD BRANCH 



TEST 



DC A200 BSCtO LONG FORM 

• N/A N/A N/A N/A N/A C S/B AT TEST 

* BSC FAILED TO TURN OFF OVERFLOW 



OC A200 BSCtC LONG FORM 

* N/A N/A N/A N/A N/A OFF S/B AT 

* BSC BRANCHED-SHOULD NOT 

* 



TEST 



OC A200 BSCtO LONG FORM 
» N/A N/A N/A N/A N/A OFF S/B AT TEST 

* BSC BRANCHED-SHOULD NOT 

* 

OC A200 BSC.C- LONG FORM 
DC A200 

* 0000 N/A N/A N/A N/A N/A 

* BSC DID NOT SKIP OR SKIPPED-SHOULD BRANCH 

OC A200 BSCtC- LONG FORM 

* FFFF N/A N/A N/A N/A N/A S/B AT 

* BSC BRANCHED-SHOULD NOT 

OC A200 BSC.C- LONG FORM 

* 0001 N/A N/A N/A N/A N/A S/B AT 

* BSC BRANCHED SHOULD NOT 



DC A200 BSC INDIRECT 
OC A200 
• BSC DID NOT SKIP OR SKIPPED-SHOULD BRANCH 

* 



TEST 



TEST 



DC A2*0 BSI 
UNCONDITIONAL BSI DID NCT BRANCH 



OC A2*0 BSI 
UNCONDITIONAL BSI DID NOT STORE 1 CTR 

CORRECTLY 






DC A2*0 BSItC LONG FORM 

DC A2*0 
0000 N/A N/A N/A N/A N/A S/B AT 
BSI DID NOT SKIP OR SKIPPED-SHOULD BRANCH 



DC A2*0 BSItC LONG FORM 
BSI DID NOT STORE THE 1 CTR CORRECTLY 



TEST 



DC A900 STORE 
STORE INSTRUCTION FAILED 



*»*3A103*20 
3A103*30 
3A103**0 
3A103*50 

»**3A103*60 
3A103*70 
3*103*80 
3A 10 3*90 
3A103500 
3A103510 
3A103520 
3A103530 
3A103540 
3A103550 
3*103560 
3A1O3570 
3A1O3580 
3A103590 
3A103600 
3A103610 
3A103620 
3A103630 
3 Al 036*0 
3A103650 
3A103660 
3A103670 
3A103680 
3A 10 3690 
3A103700 
3A103710 
3A103720 
3A103730 
3A103740 
3A 103750 
3A103760 
3A103770 
3A1037B0 
3A103790 
3A103800 
3*103810 
3A103820 
3A103830 
3A1038*0 
3A103B50 
3A103860 
3A103870 
3A103880 
3A103890 
3A103900 
3A103910 
3A103920 
3A 103930 
3A103940 
3A10395C 
3A103960 
3A103970 
3A103980 
3A 10 3990 
3*10*000 
3A 10*0 10 
3A104020 
3A 10*0 30 
3A10*0*0 
3A 10*0 50 
3A1 0*060 
3A 10*070 
3A104080 
3A 10*090 



DATE 
EC NO. 



02JAN66 
* 15*90 



01MAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*2O*03 



26AUG68 
*20*03A 



PROG ID 
PAGE 



03A1-1 
3A 
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DATE 
EC NO. 



•••••••••a ••••••»•*•> 


»••••«•*•*••***••***************»»•**»•••*•*•••**•** 3Ai 04100 




ADDRESS < 








3A104110 




OF > 








3A104120 




B-REG ROUTINE 


• A-REG O-REG XR-1 XR-2 XR-3 


STATUS 




3A104130 




••••••••••••••••••••I 


►*»****»»*»**»*»»»♦**»»»»»*»**»»**»»************»**» 3A 104 140 




3066 0282 


OC A900 XIO SENSE/PROG SWS 




3A104150 






> FFOO N/A N/A N/A N/A 


N/A S/B AT TEST 


3A104160 






► ACCUM NOT EOUAL TO FFOO— SENSE/PROG SWS 




3A104170 






> HERE INCORRECTLY SENSED 






3A104180 






1 i 






3A104190 




3067 0282 


DC A900 XIO DATA ENTRY SMS 




3A104200 






► FFOO N/A N/A N/A N/A 


N/A S/B AT TEST 


3A104210 






> ACCUM NOT EOUAL TO FFFF— DATA ENTRY SMS 




3A104220 






* MERE INCORRECTLY REAO 






3A104230 
3A104240 
3A104250 




3068 0282 


OC A900 XIO SENSE/PROG SMS 




3A104260 






• FFOO N/A N/A N/A N/A 


N/A S/B AT TEST 


3A104270 






> ACCUM NOT EOUAL TO 0000 — SENSE/PROG SMS 




3A104280 






» MERE INCORRECTLY SENSED 






3A104290 
3A104300 
3A104310 




3069 0282 


OC A900 XIO 






3A104320 






► 0000 N/A N/A N/A N/A NT/B AT TEST 


3A104330 






' ACCUM NOT EOUAL TO 0000 — OATA 


ENTRY SMS 




3A104340 






• MERE INCORRECTLY REAO 






3A 104350 
3A104360 
3A104370 
3A104380 
3A 104390 






■•*»»*»»»»»»»»»»»•»»»»»»»»»»»»»»»»»»»»»*»»»»»»*»»» 


3A104400 












3A 104410 






> THE FOLLOMING ERRORS ARE HANDLED BY THE 




3A104420 






► COMMON ERROR CONTROL ROUTINE. 


THE ID NUMBER 




3A 104430 






> SHOWN FOR EACH ERROR MILL APPEAR IN BITS 




3A104440 






• 5 THRU 15 OF THE MAIT INSTRUCTION. 




3A 104450 












3A104460 






>»»»»»»»»**»»•»»»»»»*»»»»»»»»»»»*»*»»»»»»»*»»»*»»»» 


3A104470 












3A104480 




306A 02D8 


DC A280 SRA 16 






3 A 104490 






> FFFF N/A N/A N/A N/A 


N/A S/B AFTER 


LD 


3A104500 






' 0000 N/A N/A N/A N/A 


N/A S/B AFTER 


SRA 


3A104510 






> ACCUM NOT ZERO 






3A104520 
3A 104530 
3A104540 




306B 02E2 


DC A281 SRA 15 






3A104550 






' 8000 N/A N/A N/A N/A 


N/A S/B AFTER 


LD 


3A104560 






* 0001 N/A N/A N/A N/A 


N/A S/B AFTER 


SRA 


3A 104570 






> ACCUM NOT EOUAL 0001 






3A104580 
3A 104590 
3A 104600 




306C 02ED 


DC A2B2 SRA 1 






3A104610 






> AAAA N/A N/A N/A N/A 


N/A S/B AFTER 


LD 


3A104620 






> 5555 N/A N/A N/A N/A 


N/A S/B AFTER 


SRA 


3A104630 






> ACCUM NOT EOUAL 5555 






3A104640 
3A 104650 
3A104660 




306D 02F8 


DC A283 SRA 1 






3A 104670 






> 5555 N/A N/A N/A N/A 


N/A S/B AFTER 


LD 


3A 104680 






> 2AAA N/A N/A N/A N/A 


N/A S/B AFTER 


SRA 


3A 104690 






> ACCUM NOT EOUAL 2AAA 






3A104700 
3A 104710 
3A104720 




306E 0303 


DC A284 SERIES 


OF SRAS-15 




3A 104730 






•TOTAL 


SHIFTS 




3A 104740 






• 8000 N/A N/A N/A N/A 


N/A S/B AFTER 


LD 


3A104750 






> 0001 N/A N/A N/A N/A 


N/A S/B AFTER 


SRA 


3A104760 






> ACCUM NOT EQUAL 0001 






3A 104770 




02JAN66 01MAY66 


15N0V66 15FEB68 26AUG68 






PROG ID 


03A1-1 


415490 415490C 


419643 420403 420403A 






PAGE 


4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 4A 



ADDRESS 
OF 
B-REG ROUTINE 



306F 0318 



3070 0322 



3071 032C 



3072 0336 



3073 0344 



3074 034E 



3075 0359 



3076 0367 



3077 0367 



3078 0380 



**»»»*»»»»»»»»*»*»**»*»»»»»*»*»*»»»»»*»*»****»***»< 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

***»»»»»»»*»»»»»»»»*♦»»»»»»*»»»»*»«***»*»****»*»*»« 



DC A2C0 AND-MEMORYCOOOO 
0000 N/A N/A N/A N/A N/A S/B AFTER 10 
0000 N/A N/A N/A N/A N/A AFTER AND 
ACCUM NOT EOt'AL 0000 



DC A2C4 AND-MEMORYIFFFF 
0000 N/A N/A N/A N/A N/A 
0000 N/A N/A N/A N/A N/A 
ACCUM NOT EOUAL 0000 



DC A2C8 AND-MEMORYfOOOO 
FFFF N/A N/A N/A N/A N/A 
OOOC N/A N/A N/A N/A N/A 
ACCUM NOT EOUAL 0000 



DC A2CC AND-MEMORYCFFFF 
FFFF N/A N/A N/A N/A N/A 
FFFF N/A N/A N/A N/A N/A 
ACCUM NOT EOUAL FFFF 



OC A300 OR-MEMORY • 0000 
0000 N/A N/A N/A N/A N/A AFTER LDEOR 
0000 N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EOUAL 0000 



DC A302 0R-MEM0RV#FFFF 
0000 N/A N/A N/A N/A N/A AFTER LD t OR 
FFFF N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EOUAL FFFF 



DC A304 OR-MEMORYfFFFF 
FFFF N/A N/A N/A N/A N/A AFTER LDtOR 
FFFF N/A N/A N/A N/A N/A AFTER EOR 
ACCUM NOT EOUAL FFFF 



DC A340 RTE 16 
FFFF 0000 N/A N/A N/A N/A BEFORE RTE 
0000 FFFF N/A N/A N/A N/A AFTER RTE 
ACCUM NOT EOUAL 0000 



OC A340 RTE 16 
0000 FFFF N/A N/A N/A N/A BEFORE RTE 
FFFF 0000 N/A N/A N/A N/A AFTER RTE 
ACCUM NOT EOUAL FFFF 



DC A380 SRT 32 
8000 N/A N/A N/A N/A N/A BEFORE SRT 
FFFF FFFF N/A N/A N/A N/A AFTER SRT 
ACCUM NOT EOUAL FFFF 



3A104780 
3A104790 
3A104800 
3A104810 
3A104B20 
3A104830 
3A104840 
3A104850 
3A 104860 
3A104870 
3A104B80 
3A104890 
3A104900 
3A104910 
3A104920 
3 A 104930 
3A104940 
3A104950 
3A104960 
3A104970 
3A104980 
3A104990 
3A105000 
3A105010 
3A105020 
3A105030 
3A1 05040 
3A105050 
3A105060 
3A105070 
3A105080 
3A105090 
3A105100 
3A105110 
3A105120 
3A105130 
3A105140 
3A105150 
3A105160 
3A105170 
3A105180 
3A105190 
3A105200 
3A105210 
3A105220 
3A105230 
3A105240 
3A105250 
3A105260 
3A105270 
3A105280 
3A105290 
3A105300 
3A105310 
3A105320 
3A105330 
3A 105 340 
3A 105350 
3A 105 360 
3A105370 
3A105380 
3A105390 
3A105400 
3A105410 
3A105420 
3A105430 
3A105440 
3A105450 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
4A 



18* NAIKTtNANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 5 





»»«,*»»»«»»»»»»**»»*»***»»*»»«»*«***»**»»**»*****»******»*************»*3A105460 






ADDRESS 


* 


3A105470 






OF 




» 


3A105480 






B-KEG ROUTINE 


* A-REG O-REG XR-1 XR-2 XR-3 STATUS 


3A105490 






»»•»»»»»•»»**»»**»*•»»**»»*****»»»»»»***»***»»*»*»*•***»«***** •******** , 3A105500 










* 


3A105510 






307s 0380 




DC A380 SRT 32 £ RTE 16 
* 8000 N/A N/A N/A N/A N/A BEFORE SRT 
» FFFF FFFF N/A N/A N/A N/A AFTER S*T£RTE 
» ACCOM NOT EOUAL FFFF-INDICATING REG FAILED 

• 
* 


3A105520 
3A105530 
3A105540 
3A105550 
3A105560 
3A105570 






307A 0395 




DC A384 SRT 32 

• 4000 N/A N/A N/A N/A N/A AFTER LD 

• 0000 0000 N/A N/A N/A N/A AFTER SRT 

• ACCUM NOT EOUAL 0000 

* 
• 


3A1O5580 

3A105590 

3A105600 

3A105610 - 

3A105620 

3A105630 






3078 0395 




DC A384 SRT 32 £ RTE 16 

* 4000 N/A N/A N/A N/A N/A AFTER LD 

* 0000 0000 N/A N/A N/A N/A AFTER SRT 
» ACCUM NOT EOUAL OOOO-INDICATING REG FAILED 

• 
• 


3 A 105640 
3A10S650 
3A105660 
3A105670 
3A105680 
3A105690 






307C CI 03A8 




OC A38B SRT 15 

* 5555 N/A N/A N/A N/A N/A AFTER LD 

* 0000 AAAA N/A N/A N/A N/A AFTER SRT 

* ACCUM NOT EOUAL 0000 

• 
• 


3A105700 
3A105710 
3A105720 
3A105730 
3A105740 
3A105750 






307D 03A8 

/ 




DC A388 SRT 15 C RTE 16 

* 5555 N/A N/A N/A N/A N/A AFTER LD 

* 0000 AAAA N/A N/A N/A N/A AFTER SRT 15 
» AAAA 0000 N/A N/A N/A N/A AFTER RTE 16 

* ACCUM NOT EOUAL AAAA-INDICATING REG FAILED 
* 

* 


3A1 05760 
3A105770 
3A105780 
3A105790 
3A105800 
3A105810 
3A105820 






307E 03BC 




DC A38C SERIES OF SRTS-30 

* 'TOTAL SHIFTS 

» 5555 N/A N/A N/A N/A N/A AFTER LD 

* 0000 0001 N/A N/A N/A N/A AFTER SRTSS 

* ACCUM NOT EOUAL 0000 
• 

• 


3A105830 
3A105840 
3A105850 
3A105860 
3A105870 
3A105880 
3A105890 






307F 03BC 




DC A38C SERIES OF SRTS-30 

• 'TOTAL SHIFTS £ 
« *RTE 16 

• 5555 N/A N/A N/A N/A N/A AFTER LD 

• 0000 0001 N/A N/A N/A N/A AFTER SRTSS 

• 0001 0000 N/A N/A N/A N/A AFTER RTE 16 

• ACCUM NOT EOUAL 0001-IN0ICATING REG FAILED 
• 

• 


3A105900 
3A105910 
3A105920 
3A105930 
3A105940 
3A105950 
3A105960 
3A105970 
3 A 1059 80 






3080 03DC 




OC A3C0 RTE 15 
• 5555 AAAA N/A N/A N/A N/A AFTER LD3S 
» 5554 AAAB N/A N/A N/A N/A AFTER RTE 15 
» ACCUM NOT EOUAL 5554 - RTE 15 TO A FAILED 

• 
• 


3A10S990 
3A106000 
3A106010 
3A106020 
3 A 106030 
3A106040 






3081 030C 




DC A3C0 RTE 15 £ RTE 16 

* 5555 AAAA N/A N/A N/A N/A AFTER LD9S 

* 5554 AAAB N/A N/A N/A N/A AFTER RTE 15 

• AAAB 5554 N/A N/A N/A N/A AFTER RTE 16 

• ACCUM NOT EQUAL AAAB-1ND1CATING Q REG FAILED 
* 

* 
• 
• 


3A106050 
3A106060 
3A 106070 
3A106080 
3A 106090 
3A106100 
3A106110 
3A106120 
3A106130 




DATE 


02JAN66 


01NAY66 


15N0V66 15FEB68 26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 


415490C 


419643 420403 420403A 


PAGE 


5 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 5A 



ADORE 
OF 
B-REG ROUT I 

3082 03F3 



•••'••••••••••••••••••••a********************************* 

ss * 

NE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A3C4 SERIES OF RTES-31 
♦TOTAL 

0000 8000 N/A N/A N/A 

0001 0000 N/A N/A N/A 
ACCUM NOT EOUAL 0001 



3083 03F3 



3084 0412 



3085 0412 



3086 0412 



3087 0433 



3088 0433 



3089 0433 



30BA 0453 



SHIFTS 

N/A AFTER LD 
N/A AFTER RTESS 



DC 



A3C4 



SERIES 
•TOTAL 



OF RTES-31 
SHIFTS 



•FOLLOWED BY RTE 16 



0000 
0001 

0000 



8000 
0000 

0001 



N/A 
N/A 
N/A 



N/A 

N/A 
N/A 



N/A 
N/A 
N/A 



ACCUM NOT EOUAL OOOO-INDICATING 



DC A400 SLA 16 
FFFF FFFF N/A N/A N/A 
0000 FFFF N/A N/A N/A 
ACCUM NOT EOUAL 0000 



N/A AFTER LD 
N/A AFTER RTESS 
N/A AFTER RTE 16 
REG FAILED 



DC A400 
FFFF FFFF N/A 
0000 FFFF N/A 
CARRY NOT SET 



DC 



FFFF 
0000 
FFFF 



A400 
FFFF N/A 
FFFF N/A 
0000 N/A 



SLA 16 
N/A N/A 
N/A N/A 



SLA 16 
N/A N/A 
N/A N/A 
N/A N/A 



N/A 
N/A 



OFF 

C 



AFTER 
AFTER 



AFTER 
AFTER 



LD 
SLA 



LD 
SLA 



ACCUM NOT EOUAL FFFF-INDICATING 



OC A408 SLA 16 
0001 0000 N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUM NOT EOUAL 0000 



RTE 16 
N/A AFTER 
N/A AFTER 
N/A AFTER RTE 
C REG FAILED 



LD 
SLA 



16 



DC A408 
0001 0000 N/A 
0000 0000 N/A 
CARRY NOT SET 



DC 



0001 
0000 
0000 



0000 
0000 

0000 



A408 
N/A 
N/A 
N/A 



SLA 16 
N/A N/A 
N/A N/A 



SLA 16 
N/A N/A 
N/A N/A 
N/A N/A 



N/A 
N/A 



AFTER LD 
AFTERSLA 



AFTER LD 
AFTER SLA 



ACCUM NOT EOUAL OOOO-INDICATING 



RTE 16 

N/A AFTER LD 
N/A AFTER SLA 
N/A AFTER RTE 16 
REG FAILED 



DC B400 SLA 1 

* AAAA 0000 N/A N/A N/A 

* 5554 0000 N/A N/A N/A 

* ACCUM NOT EOUAL 5554 

• 



N/A AFTER LD 
N/A AFTER SLA 



•3A106140 
3A106150 
3A106160 
3A106170 
•3A106180 
3A106190 
3A1O620O 
3A10621O 
3A106220 
3A106230 
3A106240 
3A 106250 
3A106260 
3A106270 
3A106280 
3A106290 
3A106300 
3A106310 
3A106320 
3A106330 
3A106340 
3A106350 
3A106360 
3A106370 
3A106380 
3A106390 
3A106400 
3A106410 
3A106420 
3A106430 
3A106440 
3A106450 
3A106460 
3A106470 
3A106480 
3A 106490 
3A106500 
3A106510 
3A106520 
3A 106530 
3A 106540 
3A106550 
3A106560 
3A106570 
3A106580 
3A 106590 
3A106600 
3A 106610 
3A1 06620 
3A106630 
3A106640 
3A 106650 
3A106660 
3A 106670 
3A106680 
3A106690 
3A106700 
3A106710 
3A106720 
3A106730 
3A106740 
3A106750 
3A 106760 
3A106770 
3A106780 
3A106790 
3A106800 
3A106810 



DATE 

EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
42O403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
5A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 6 



••••••••••••••••••A* 

ADORE SS 
OF 
B-REG ROUTINE 

30BB 0453 



30BC 0*53 



308D 0471 



308E 0471 



308F 0471 



3090 0^90 



3091 0490 



3092 0490 



3093 04BD 



•**•••***•*•••**••*•****•*•**••«***•**•••••*••••••« 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

»»»»*»*»***«»»»****»»»****»»•»****»»»»»»»**»***••*» 

DC B400 SLA 1 

AAAA 0000 N/A N/A N/A C 

5554 0000 N/A N/A N/A C 
CARRY NOT SET 



DC B400 
AAAA 0000 N/A 
5554 0000 N/A 
0000 5554 N/A 



SLA 1 t RTE 16 
N/A N/A N/A 
N/A N/A N/A 
N/A N/A N/A AFTER RTE 



ACCUM NOT EQUAL OOOO-INDICATING REG FAILEO 



DC B406 SLA 1 
5555 0000 N/A N/A N/A 
AAAA 0000 N/A N/A N/A 
ACCUM NOT EQUAL AAAA 



DC 8406 SLA 1 
5555 0000 N/A N/A N/A 
AAAA 0000 N/A N/A N/A 
CARRY SET-SHOULD BE CLEAR 



N/A AFTER LD 
N/A AFTER SLA 



C AFTER LD 
OFF AFTER SLA 



OC B406 
5555 0000 N/A 
AAAA 0000 N/A 
0000 AAAA N/A 



SLA 1 C RTE 16 

N/A N/A N/A AFTER LD 

N/A N/A N/A AFTER SLA 

N/A N/A N/A AFTER RTE 



ACCUM NOT EQUAL OOOO-INDICATING Q REG FAILED 



DC 



B40A 



-16 



SERIES OF SLAS- 
•TOTAL SHIFTS 
0001 0000 N/A N/A N/A N/A AFTER SLA 
0000 0000 N/A N/A N/A N/A AFTER SLA8S 
ACCUM NOT EQUAL 0000 



DC 



B40A 



0001 0000 
0000 0000 
CARRY NOT SET 



N/A 
N/A 



DC 



B40A 



0001 


0000 


N/A 


0000 


0000 


N/A 


0000 


0000 


N/A 



SERIES OF SLAS-16 

•TOTAL SHIFTS 
N/A N/A C AFTER SLA 
N/A N/A C AFTER SLA8S 



SERIES OF SLAS-16 

•TOTAL SHIFTS £ 

•RTE 16 
N/A N/A N/A AFTER SLA 
N/A N/A N/A AFTER SLA8S 
N/A N/A N/A AFTER RTE 16 



ACC NOT EQUAL OOOO-INDICATING Q REG FAILED 



DC A440 SLT 32 
0000 0001 N/A N/A N/A 
0000 0000 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



N/A AFTER LD 
N/A AFTER SLT 32 



3A106B20 

3A106830 

3A106840 

3A106850 

3A106860 

3A 106870 

3A106B80 

3A 106890 

3A106900 

3A106910 

3A106920 

3A106930 

3A106940 

3A 106950 

3A106960 

3A 106970 

3A106980 

3A 106990 

3A107000 

3A107010 

3A107020 

3A107030 

3A107040 

3A107050 

3A107060 

3A 107070 

3A107080 

3A107090 

3A107100 

3A107110 

3A107120 

3A107130 

3A107140 

3A107150 

3A107160 

3A107170 

3A107180 

3A107190 

3A107200 

3A 107210 

3A107220i 

3A107230 

3A107240 

3A107250 

3A107260 

3A 1072 70 

3A1072B0 

3A 107290 

3A107300 

3A107310 

3A107320 

3A107330 

3A10734O 

3A 107350 

3A107360 

3A 107370 

3A107380 

3A107390 

3A1074O0 

3A107410 

3A107420 

3A107430 

3 A 107440 

3A 107450 

3A107460 

3A107470 

3A107480 

3A107490 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG 10 
PAGE 



03A1-1 
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*•••*******•**•****•* 


******»»»*»»•»*»*»******»»»»»»**»»*♦**»»»*»»»#»**** 3A j 07 500 






ADDRESS » 










3A107510 






OF « 










3A107520 






B-REG ROUTINE « 


> A-REG O-REG XR-1 


XR-2 XR-3 


STATUS 




3A107530 






»»*»»»»»»»»»»»»»*»*»» 


»»»»»»*»»»»»*»••»»»»»»»»»»»»»*»»••»»»»*»**»»*»» «»**3A 107540 






3094 04BD 


DC A440 


SLT 32 






3A1O7550 








> 0000 0001 N/A 


N/A N/A 


N/A AFTER LD 




3A107560 








) 0000 0000 N/A 


N/A N/A 


C AFTER SLT 


32 


3A107570 








CARRY NOT SET 








3A107580 
3A 107590 
3A107600 






3095 0480 


DC A440 
> 0000 0001 


SLT 32 


t RTE 16 

AFTER LD 




3A107610 
3A 107620 








> 0000 0000 




AFTER SLT 


32 


3A 107630 








i 0000 0000 




AFTER RTE 


lb 


3A107640 








* ACCUM NOT EQUAL OOOO-INDICATING Q REG FAILED 




3A 107650 
















3A107660 
















3 A 107670 






3096 040A 


' DC A444 


SLT 16 


3 




3A107680 








► 0000 FFFF N/A 


N/A N/A 


N/A AFTER LD 




3A107690 








' FFFF 0000 N/A 


N/A N/A 


N/A AFTER SLT 


16 


3A107700 








« ACCUM NOT EQUAL FFFF 






3A107710 
















3A107720 
















3A107730 






3097 040 A 


DC A444 


SLT 16 






3A1 07740 








► 0000 FFFF N/A 


N/A N/A 


N/A AFTER LD 




3A107750 








« FFFF 0000 N/A 


N/A N/A 


OFF AFTER SLT 


16 


3A107760 








► CARRY ON SHOULD NOT BE 






3A107770 
















3A107780 
















3A107790 






3098 040A 


DC A444 


SLT 16 


t RTE 16 




3A107800 








► 0000 FFFF N/A 


N/A N/A 


N/A AFTER LO 




3A107810 








► FFFF 0000 N/A 


N/A N/A 


N/A AFTER SLT 


16 


3A107820 








► 0000 FFFF N/A 


N/A N/A 


N/A AFTER RTE 


16 


3A 107830 








> ACCUM NOT EQUAL 0000-INO!CAT1NG REG FAILEO 




3A107840 
















3A107850 
















3A107860 






3099 04F9 


OC A44A 


SLT 15 






3A 107870 








* 0000 5555 N/A 


N/A N/A 


N/A AFTER LO 




3A107BBO 








• 2AAA 8000 N/A 


N/A N/A 


N/A AFTER SLT 


15 


3A107890 








» ACCUM NOT EQUAL 2 AAA 






3A107900 
















3A107910 








I fc 








3A107920 






309A 04F9 


DC A44A 


SLT 15 






3A 107930 








► 0000 5555 N/A 


N/A N/A 


N/A AFTER LO 




3A107940 








► 2AAA 8000 N/A 


N/A N/A 


OFF AFTER SLT 


15 


3A107950 








► CARRY SET-SHOULD NOT BE 






3A1 07960 
















3A107970 
















3A107980 






309 B 04F9 


DC A44A 


SLT 15 


I RTE 16 




3A107990 








* 0000 5555 N/A 


N/A N/A 


N/A AFTER LD 




3A108000 








• 2AAA 8000 N/A 


N/A N/A 


N/A AFTER SLT 


15 


3A108010 








► 8000 2AAA N/A 


N/A N/A 


N/A AFTER RTE 


16 


3A108020 








► ACCUM NOT EQUAL 8000-INDICATING REG FAILEO 




3A 108030 
















3A108040 
















3A 108050 






309C 0519 


DC B440 


SERIES 
•TOTAL 


OF SLTS-32 
SHIFTS 




3A108060 
3A108070 








« 0000 0001 N/A 


N/A N/A 


N/A AFTER LD 




3A108080 








► 0000 0000 N/A 


N/A N/A 


N/A AFTER SLT9S 


3A10B090 








> ACCUM NOT EQUAL 0000 






3A108100 
















3A108110 
















3A108120 






3090 0519 


OC B440 


SERIES 
•TOTAL 


OF SLTS-32 
SHIFTS 




3A108130 
3A10B140 








► 0000 0001 N/A 


N/A N/A 


N/A AFTER LD 




3A106150 








> 0000 0000 N/A 


N/A N/A 


C AFTER SLT3S 


3A10B160 








► CARRY NOT ON 








3A106170 




DATE 


02JAN66 01MAY66 


15N0V66 15FEB68 


26AUG68 






PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 420403 


420403A 
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OATE 
EC NO. 



•••••••••••••••••••«< 


►»*»•»»***»»**»**»*********»»*****»*»»**«»********»* 3 a 108 180 




ADDRESS 




3A108190 




OF « 




3A108200 




B-REG ROUTINE ■ 


► A-REG O-REG XR-1 XR-2 XR-3 STATUS 


3A1O8210 




»»»*»»**«*»»»*»***»*« 


>»»»»»»»•»»»»»»»»»*»»«»»»»»»»»*»«■»»»»*****»*»«»»**** 3A 108 220 




309E 0519 


OC B440 SERIES OF SLTS-32 


3A106230 






► »10TAL SHIFTS 6 


3A108240 






» *RTE 16 


3A108250 






► 0000 0001 N/A N/A N/A N/A AFTER LO 


3A108260 






► 0000 0000 N/A N/A N/A N/A AFTER SLTSS 


3A108270 






► 0000 0000 N/A N/A N/A N/A AFTER RTE 16 


3A108280 






» ACCUM NOT EOUAL OOOO-INOICATING REG FAILED 


3A108290 
3A108300 
3A108310 




309F 0542 


OC A480 STO 


3A108320 






* 0000 N/A N/A N/A N/A N/A 


3A108330 






* STORING 0000 INTO A STORAGE LOCATION 


3A108340 






* CONTAINING FFFF DID NOT RETURN 0000 WHEN 


3A108350 






► RELOADED IN THE ACCUM 


3A108360 
3A108370 
3A108380 




30 AO 054E 


OC A482 STO 


3A 108390 






► FFFF N/A N/A N/A N/A N/A 


3A108400 






* STORING FFFF INTO A STORAGE LOCATION 


3A108410 






» CONTAINING 0000 DID NOT RETURN FFFF WHEN 


3A106420 






• RELOADED IN THE ACCUM 


3A108430 
3A108440 
3A108450 




30A1 055F 


OC A4C0 STS 


3A108460 






* N/A N/A N/A N/A N/A ON AFTER LDS 3 


3A108470 






► N/A N/A N/A N/A N/A OFF AFTER LOS 


3A108480 






* N/A N/A N/A N/A N/A OFF AFTER STS 


3A 108490 






► LDS FAILED TO RESET CARRY AND OVERFLOW OR 


3A108500 






• STS FAILED TO STORE INDICATORS. 


3A108510 
3A108520 
3A108530 




30A2 0566 


OC A4C2 STS 


3A 108540 






• N/A N/A N/A N/A N/A CtO AFTER LDS 


3A108550 






* N/A N/A N/A N/A N/A OFF AFTER STS 


3A 108 560 






* STS DID NOT CLEAR CARRY 


3A108570 
3A108580 
3A108590 




30A3 0568 


DC A4C2 STS CK ACC 


3A108600 






• INITIALLY ACC HAS CORE LOCATION OF 


3A108610 






* SYMBOLIC LABEL A4C2 


3A108620 






» ACC DISTROVEO AFTER STS 


3A108630 
3A108640 
3A 108650 




30A4 0568 


DC A4C2 STS 


3A108660 






• N/A N/A N/A N/A N/A CCO AFTER LDS 


3A108670 






• N/A N/A N/A N/A N/A OFF AFTER STS 


3A108680 






* STS DID NOT CLEAR OVERFLOW 


3A108690 
3A108700 
3A 10 87 10 




30A5 0568 


DC A4C2 STS 


3A108720 






* N/A BEFORE LD 


3A10B730 






• 0003 AFTER LD 


3A108740 






» STS OF 0003 INTO A STORAGE LOCATION 


3A108750 






* CONTAINING 0000 DID NOT RETURN 0003 WHEN 


3A108760 






• RELOADED IN THE ACCUM 


3A108770 
3A108780 




30A6 0590 


DC A4C8 STS 


3A108790 






* N/A N/A N/A N/A N/A CCO AFTER LDS 3 


3A108800 






• N/A N/A N/A N/A N/A C AFTER LDS 2 


3A108810 






» N/A N/A N/A N/A N/A OFF AFTER STS 


3A108820 






* 0002 N/A N/A N/A N/A OFF AFTER LO 


3A108830 






• STS FAILED TO STORE OR LDS 2 FAILED TO RESET 


3A108840 






* OVERFLOW. 


3A108850 




02JAN66 01NAY66 


15N0V66 15FEB68 26AUG68 


PROG ID 


03A1-1 


415*90 415490C 


419643 420403 420403A 


PAGE 


7 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 7A 



*«■»»*»»****»»***«»»* 

ADDRESS 
OF 
8-REG ROUTINE 

30A7 0590 



30A8 05A7 



30A9 05A7 



30 AA 05C4 



3/OAB 05CF 



30 AC 05DA 



30A0 050A 



30Ar 05F1 



30AF 05FC 



30B0 05FC 



30B1 0619 



30B2 0619 



**•**» ********************************* »«**»**•*** 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A4C8 STS 

N/A N/A N/A N/A N/A CtO AFTER LDS 3 

N/A N/A N/A N/A N/A C AFTER LDS 

N/A N/A N/A N/A N/A OFF AFTER STS 
STS DID NOT CLEAR CARRY OR OVERFLOW IF OVERFLOW 
HAD NOT BEEN RESET BY LDS 2 



OC A4CC 

N/A N/A N/A 

N/A N/A N/A 

N/A N/A N/A 



STS 
N/A N/A 
N/A N/A 
N/A N/A 



C£0 AFTER LDS 3 
AFTER LDS 1 
OFF AFTER STS 



LDS 1 FAILED, IF ACCUMULATOR IS OTHER THAN /0001 



DC 
N/A N/A 
N/A N/A 
N/A N/A 



A4CC 
N/A 
N/A 
N/A 



STS 
N/A N/A 
N/A N/A 
N/A N/A 



CCO AFTER LDS 3 
AFTER LDS 1 
OFF AFTER STS 



STS FAILED TO RESET INDICATORS. 



DC A500 BSCOCEZC 
8001 N/A N/A N/A N/A CCO 
8SC SKIPPEO-SHOULD NOT HAVE 



DC A502 BSCt-OCC 
0000 N/A N/A N/A N/A CCO 

BSC SKIPPED-SHOULD NOT HAVE 



DC A504 
8000 N/A N/A 
BSC FAILED TO SKIP 



BSCO-E 
N/A N/A 



CCO 



DC A504 esc.o 

8000 N/A N/A N/A N/A 
BSC FAILED TO CLEAR OVERFLOW 



DC A508 
0001 N/A N/A 
BSC FAILEO TO SKIP 



BSCCCZ 
N/A N/A 



OFF 



OC A50A BSCCOCE LONG FORM 
8001 N/A N/A N/A N/A CCO 
BSC DID NOT BRANCH - SHOULO HAVE 



OC A50A BSCCOCE LONG FORM 
8001 N/A N/A N/A N/A CCO 
BSC SKIPPED-SHOULD BRANCH 



DC A50C BSCt-Z LONG FORM 
0004 N/A N/A N/A N/A CCO 
BSC DID NOT BRANCH - SHOULD HAVE 



OC A50C 
• 0004 N/A N/A 



BSC, -2 LONG FORM 
N/A N/A CCO 



*3A108860 
3A108870 
3A108880 
3A108890 

•3A108900 
3A1C8910 
3A108920 
3A108930 
3A108940 
3A108950 
3A108960 
3A108970 
3A1089B0 
3A108990 
3A109000 
3A109010 
3A109020 
3A109030 
3A109040 
3A 109050 
3A109060 
3A109070 
3A109080 
3A109090 
3A109100 
3A109110 
3A109120 
3A109130 
3A109140 
3A109150 
3A 109 160 
3A109170 
3A109180 
3A109190 
3A109200 
3A 1092 10 
3A109220 
3A109230 
3A109240 
3A 109250 
-3A109260 
3A 109270 
3A109280 
3A 109290 
3A109300 
3A109310 
3A109320 
3A109330 
3A109340 
3A 109350 
3A109360 
3A 109370 
3 A 109 380 
3A 109390 
3A109400 
3A109410 
3A109420 
3A109430 
3A109440 
3A 109450 
3A109460 
3A109470 
3A109480 
3A 109490 
3 A 109500 
3A109510 
3A109520 
3A109S30 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



1SN0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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* BSC SKIPPED-SHOULO BRANCH 



•»••»»••♦»»»*»***»»* 

ADORES S * 

OF * 

B-REG ROUTINE • 



3063 062 D 



30B4 0620 



30B5 06*1 



30B6 0641 



30B7 0660 



30B8 0*60 



30B9 0660 



DC 



A50E 



BSC.tEOCZ LONG 
•FORM 

8001 N/A N/A N/A N/A CtO 

BSC BRANCHED-SHOULD NOT 



DC 



A50E 



* 
* 



BSC.IFOCZ LONG 
•FORM 

8001 N/A N/A N/A N/A CtO 

BSC SKIPPEO-SHOULD NOT 



DC B500 esc.t 

0001 N/A N/A N/A N/A CtO 
BSC ON PLUS CLEAREO THE OVERFLOW F-F 



30BA 0681 



30BB 0681 



30 BC 0696 



30B0 0696 



DC 8500 
0001 N/A N/A 
BSC FAILED TO SKIP 



BSC.t 
N/A N/A 



N/A 



DC 



A540 



3A109540 

109550 

3A109560 

3A109570 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A109580 

»»»»*«*»»»»*«*»»*»*»»»»»»**»»»»»**«**»**«»**»*****3A109S90 

3A 109 600 
3A 109610 
3A109620 
3A109630 
3A109640 
3A 109650 
3A109660 
3A 109670 
3A109680 
3A109690 
3A109700 
3A1O9710 
3A109720 
3A109730 
3A109740 
3A109750 
3A109760 
3A109770 
3A109780 
3A109790 
3A109800 
3A 1098 10 
3A109820 
3A109830 
3 Al 09840 
3A 109850 
3A109860 
3A109870 
3A1 09880 
3A 109 890 
3A109900 
3A 109910 
3A109920 
3A 109930 
3*109940 
3A109950 
3A 109960 
3A 109970 
3A109980 
3A 109990 
3A1 10000 
3A110010 
3A 11 0020 
3A 110030 
3A1 10040 
3A 110050 
3A1 10060 
3A 110070 
3A1 10080 
3A 110090 
3A110100 
3A110110 
3A1 10120 
3A110130 
3A110140 
3A110150 
3A110160 
3A110170 
3A1 10180 
3A1 10190 
3A1 10200 
3A110210 



BS1.EC0CZ LONG 
•FORM 

8001 N/A N/A N/A N/A LCD 
BS1 OID NOT BRANCH - SHOULD HAVE 



OC 



A540 



BSI.EC06Z LONG 
•FORM 

8001 N/A N/A N/A N/A CtO 

BSI SKIPPED-SHOULO BRANCH 



DC 



A540 



BSI.ECOtZ LONG 

•FORM 

8001 N/A N/A N/A N/A C60 AFTER LOS 
8001 N/A N/A N/A N/A C AFTER BSI 
BSI OID NOT CLEAR OVtf.FLOH 



DC A544 
0002 N/A N/A 
BSI OID NOT BRANCH 



BSItZ- LONG FORM 
N/A N/A N/A 
- SHOULO HAVE 



DC A544 BSI.Z- LONG FORM 
0002 N/A N/A N/A N/A N/A 
BSI SKIPPED-SHOULO BRANCH 



DC A546 BSItZ LONG FORM 
0000 N/A N/A N/A N/A N/A 
BSI BRANCHED-SHOULD NOT 



DC A546 BSI.Z LONG FORM 
OCOO N/A N/A N/A N/A N/A 
BSI SKIPPED-SHOULO NOT U 



OATE 
EC NO. 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG6B 
420403A 
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AOORESS 
OF 
B-REG ROUTINE 

30BE 06A9 



30BF 06A9 



30C0 06BB 



30C1 066 B 



30C2 06CD 



30C3 06CD 



30C4 06DF 



30C5 060F 



30C6 06F1 



30C7 06F1 



30C8 0704 



30C9 0704 



30CA 0717 



* 

• A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A548 BSIt- LONG FORM 

• 8001 N/A N/A N/A N/A N/A 
•' BSI SKIPPED-SHOULO NOT 
• 
• 

OC A548 BSIt- LONG FORM 

• 8001 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 

DC A54A BSI tt LONG FORM 

• 0002 N/A N/A N/A N/A N/A 
» BSI SKIPPED-SHOULO NOT 
* 
* 

DC A54A BSI.t LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 



DC A54C BSI.E LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI SKIPPEO-SHOULD NOT 
• 

• 

OC A54C BSI.E LONG FORM 

• 0002 N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
• 

• 

DC A54E BSI.C LONG FORM 

• N/A N/A N/A N/A N/A C 

• BSI SKIPPEO-SHOULD NOT 
• 

• 

OC A54E BSI.C LONG FORM 

• N/A N/A N/A N/A N/A C 

• BSI BRANCHED SHOULD NOT 
* 

DC A54F BSI.O LONG FORM 

• N/A N/A N/A N/A N/A 

• BSI SKIPPEO-SHOULD NOT 
• 

• 

DC A54F BSI.O LONG FORM 

• N/A N/A N/A N/A N/A 

• BSI BRANCHED-SHOULD NOT 
* 

• 

DC A580 LOD 

• 0000 0000 N/A N/A N/A N/A 

• ACCUM NOT EQUAL 0000 
• 

• 

DC A580 LOO t RTE 16 

• 0000 0000 N/A N/A N/A N/A AFTER LOD 

• 0000 0000 N/A N/A N/A N/A AFTER RTE 

• ACCUM NOT EQUAL 0000-f NDICAT1NG Q REG FAILED 
• 

DC A584 LOD 

• FFFF FFFF N/A N/A N/A N/A 



3A110220 
•»»»3A1 10230 
3A1 10240 
3A1 10250 
3A110260 
»*»»3A110270 
3A1 10280 
3A1 10290 
3A1 10300 
3A110310 
3A110320 
3A110330 
3A1 10340 
3A110350 
3A1 10360 
3A 11 0370 
3A110380 
3A110390 
3A1 10400 
3A110410 
3A1 10420 
3A110430 
3A1 10440 
3A110450 
3A1 10460 
3A11O470 
3 Al 10480 
3A 11 0490 
3A1 10500 
3A110510 
3*110520 
3A110530 
3A1 10540 
3A 110550 
3 Al 10560 
3A110570 
3A1 10580 
3A 110590 
3A1 10600 
3A110610 
3A1 10620 
3A 110630 
3A1 10640 
3A 11 0650 
3A1 10660 
3A 11 0670 
3A1 10680 
3A 11 0690 
3A1 10700 
3A110710 
3A1 10720 
3A110730 
3A1 10740 
3A110750 
3A1 10760 
3A110770 
3A1 10780 
3A 110790 
3A1 10800 
3A110B10 
3A1 10820 
3A1 10830 
3A1 10840 
3A1 10850 
3A1 10860 
3A 11 0870 
3A1 10880 
3A110890 



16 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
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*•••••• 



B-RE& 
30CB 



ADDRE 

OF 
ROUT I 

0717 



* ACCUM NOT EOUAL FFFF 

ss * 



NE 



30CC 072 B 



30C0 072B 



30CE 0730 



30CF 0730 



30D0 0751 



3001 0751 



3002 076A 



30D3 076A 



30D4 078F 



3005 0798 



3006 07A1 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A584 LDD t RTE 16 
FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER RTE 16 
ACCUM NOT EOUAL FFFF-1ND1CATING '0 REG FAILED 



OC A588 LOD ODD ADDRESS 
0000 0000 N/A N/A N/A N/A 
ACCUM NOT EOUAL 0000 



DC 



A588 



LDD-ODD ADDRESS 

• C RTE 16 
0000 0000 N/A N/A N/A N/A AFTER LDO 
0000 0000 N.'A N/A N/A N/A AFTER RTE 16 
ACCUM NOT EOUAL 0000-INOICATING REG FAILED 



DC A5C0 STD 
0000 0000 N/A N/A N/A N/A 
USING STD-ACCUM NOT STORED IN LOCATION EA 



DC A5C0 STD 
0000 0000 N/A N/A N/A N/A 
USING STO-0 REG NOT STORED IN LOCATION EAtl 



DC A5C4 STD 
FFFF FFFF N/A N/A N/A N/A 
USING STD-ACCUM NOT STOREO IN LOCATION EA 



DC A5C4 STD 
FFFF FFFF N/A N/A N/A N/A 
USING STD-Q REG NOT STORED IN LOCATION EAtl 



DC A5C8 STD ODD AORESS 
0000 0000 N/A N/A N/A N/A 
STD USING 000 ADDRESS-ACCUM NOT STORED IN EA 



DC A5C8 STD-OOD ADDRESS 
0000 0000 N/A N/A N/A N/A 
STD USING ODD ADDRESS-ACCUM NOT STORED 
IN EAC1 



DC A600 LDX 1 
N/A N/A N/A N/A N/A N/A 
TAG REG BIT 7 MILL NOT SET 



OC A602 LDX 2 
N/A N/A N/A N/A N/A N/A 
TAG REG BIT 6 WILL NOT SET 



DC A604 LDX 1 
N/A N/A 0000 N/A N/A N/A 
INDEX REG 1 NOT EOUAL 0000 



3A1 10900 
3A110910 
3A1 10920 
3A110930 
3A1 10940 
3A110950 
3A1 10960 
3A110970 
3 Al 10980 
3A110990 
3A1 11000 
3A111010 
3A1 11020 
3A111030 
3A111040 
3A111050 
3A1 11060 
3*111070 
3A1 11080 
3A111090 
3A111100 
3A111110 
3A111120 
3A111130 
3A1 11140 
3A111150 
3A111160 
3A111170 
3A111180 
3A111190 
3AU1200 
3A111210 
3A111220 
3A111230 
3A1 11240 
3A111250 
3A1 11260 
3A111270 
3A1 11280 
3A111290 
3A111300 
3A111310 
3A111320 
3A111330 
3 Al 11340 
3A111350 
3A111360 
3A111370 
3A111380 
3A1 11390 
3A111400 
3A 11 1410 
3 Al 11420 
3A 11 1430 
3A1 11440 
3A111450 
3A111460 
3A 11 1470 
3A111480 
3A 11 1490 
3A11150O 
3A111510 
3A111520 
3A111530 
3A1 11540 
3A111550 
3A111560 
3A1 11570 



DATE 
EC NG. 



02JAN66 
-.15490 



01MAY66 

415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 9A 



ADDRESS 
OF 
B-REG ROUTINE 

30D7 07AD 



30D8 07BA 



3009 07C7 



30DA 07D4 



30DB 07E1 



30DC 07EE 



30DD 07FC 



300E 0810 



30DF 0827 



30E0 0834 



30E1 0841 



30E2 084E 



30E3 085C 



••*••*••*•*•••« ••*»**•••*•**»****•***»•**«****** 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

OC A606 LDX 2 
N/A N/A N/A 0000 N/A N/A 
INDEX REG 2 NOT EOUAL 0000 



DC A608 LDX 3 
N/A N/A N/A N/A 0000 N/A 
INDEX REG 3 NOT EQUAL 0000 



DC A60A LOX 1 
N/A N/A FFFF N/A N/A N/A 
INDEX REG 1 NOT EOUAL FFFF 



DC A60C LDX 2 
N/A N/A N/A FFFF N/A N/A 
INDEX REG 2 NOT EOUAL FFFF 



OC A60E LDX 3 
N/A N/A N/A N/A FFFF N/A 
INDEX REG 3 NOT EOUAL FFFF 



DC B600 LDX 1 LONG FORM 
N/A N/A 0001 Hft. N/A N/A 
INDEX REG 1 NOT EOUAL 0001 



DC B602 LOX 3 INDIRECT 
N/A N/A N/A N/A FFFF N/A 
INDEX REG 3 NOT EOUAL FFFF 



OC A640 STX 
N/A N/A N/A N/A N/A N/A 
STX MITH NO TAG DID NOT STORE 1-CTR CORRECT 



DC A642 STX 1 
N/A N/A 0000 N/A N/A N/A 
INOEX REG 1 HAS NOT STORED BY STX 



DC A644 STX 2 
N/A K/A N/A 0000 N/A N/A 
INDEX REG 2 NOT STORED BY STX 



DC A646 STX 3 
N/A N/A N/A N/A 0000 N/A 
INDEX REG 3 NOT STORED BY STX 



DC A64B STX 1 
N/A N/A FFFF N/A N/A N/A 
INDEX REG 1 NOT STORED BY STX 



DC A64A STX 2 
* N/A N/A N/A FFFF N/A N/A 



3AU1580 
•••3A111590 
3AU1600 
3A111610 
3A111620 
*»»3A111630 
3A111640 
3A 11 1650 
3A111660 
3AU1670 
3A1 11680 
3A111690 
3A111700 
3A111710 
3A111720 
3A111730 
3A111740 
3A111750 
3A111760 
3AU1770 
3A111780 
3A111790 
3A111800 
3A111810 
3A111820 
3A111830 
3A1 11840 
3A1 11850 
3A111860 
3A111870 
3A1 11880 
3A111890 
3A111900 
3A111910 
3A1 11920 
3A111930 
3A1 11940 
3A1 11950 
3A111960 
3A 11 1970 
3A1 11980 
3A1 11990 
3A 112000 
3A112010 
3A1 12020 
3A1 12030 
3A1 12040 
3A 11 2050 
3A1 12060 
3A 112070 
3A1 12080 
3A112090 
3A1 12100 
3A112110 
3A1 12120 
3A112130 
3A112140 
3A112150 
3A112160 
3A112170 
3A1121B0 
3A112190 
3A112200 
3A112210 
3A1 12220 
3A1 12230 
3A1 12240 
3A112250 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



2oAUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
9A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 10 



•••••••••••••••a**** 

ADDRESS 
OF 
B-REG ROUTINE 

30E4 086A 



30E5 08DC 



30E6 08DC 



30E? 08F1 



30E8 0BF1 



30E9 0904 



30EA 0904 



30EB 0918 



30EC 0918 



INDEX REG 2 NOT STORED BY STX 3A112260 

»»*»»*«»*»»»»*»»» ••••*»**»***************«**«**««»»3A1 12270 

3A1 12280 

3A 112290 

A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A112300 

*****»*»*»*»***** »»»**»»»»»*»»*»**»»»»»*»«*»»»*»»»»3A1 12310 

3A112320 
DC A64C STX 3 
N/A N/A N/A K/A FFFF N/A 
INDEX REG 3 NOT STORED BY STX 



DC 
FFFF N/A 
FFFF N/A 
ADD FFFF t 



A6B0 
N/A 
N/A 



ADD 
N/A N/A 
N/A N/A 



AFTER 
AFTER 



0000 TURNED ON OVERFLOW 



DC A680 ADO 
FFFF N/A N/A N/A N/A N/A AFTER 
FFFF N/A N/A N/A N/A N/A AFTER 
ADO FFFF t 0000 FAILED TO EQUAL FFFF 



DC A684 ADO 
FFFF N/A N/A N/A N/A OFF AFTER 
0000 N/A N/A N/A N/A C AFTER 
ADD FFFF t 0001 DID NOT TURN ON CARRY 



DC A684 ADD 
FFFF N/A N/A N/A N/A N/A 
0000 N/A N/A N/A N/A N/A 
ADD FFFF 6 0001 DID NOT EOUAL 0000 



AFTER 
AFTeR 



DC 
FFFF N/A 
FFFF N/A 



A688 
N/A 
N/A 



AOO 
N/A N/A 
N/A N/A 



OFF 
C 



AFTER 
AFTER 



ADD FFFF 6 FFFF DID NOT TURN ON CARRY 



DC A688 ADD 
FFFF N/A N/A N/A N/A N/A AFTER 
FFFF N/A N/A N/A N/A N/A AFTER 
AOD FFFF t FFFF OID NOT EQUAL FFFE 



DC A68C ADD 
4000 N/A N/A N/A N/A OFF AFTER 
8000 N/A N/A AFTER 

ADD 4000 t 4000 DID NOT TURN ON OVERFLOW 



DC A68C ADD 
4000 N/A N/A N/A N/A N/A 
ADD 4000 £ 4000 DID NOT EQUAL 8000 



LDtLDS 

A 



LD 

A 



LDtLDS 

A 



LDtLDS 

A 



LDtLDS 

A 



LDtLDS 

A 



LD 

A 





30ED 092C 


DC B680 ADD 
■ 8000 N/A N/A N/A N/A 
► 0000 N/A N/A N/A N/A 
* ADD 8000 t 8000 NOT EQUAL 0000 


N/A 
N/A 


AFTER 
AFTER 


LD 

A 




30EE 092C 


DC B680 
> 8000 N/A N/A 
* 0000 N/A 


ADD 
N/A N/A 


OFF 
CtO 


AFTER 
AFTER 


LO 

A 


DATE 
EC NO. 


02JAN66 01MAY66 
415490 415490C 


15N0V66 15FEB68 
419643 420403 


26AUG6B 
420403A 









3A 11 2330 
3A112340 
3A112350 
3A112360 
3A112370 
3A1 12380 
3A112390 
3A1 12400 
3A112410 
3A1 12420 
3A112430 
3A1 12440 
3A112450 
3A1 12460 
3A 11 2470 
3A1 12480 
3A112490 
3A1 12500 
3A1 12510 
3A112520 
3A 11 2530 
3A1 12540 
3A112550 
3A1 12560 
3A112570 
3A1 12580 
3A112590 
3A1 12600 
3A112610 
3A1 12620 
3A 11 2630 
3A1 12640 
3A112650 
3A1 12660 
3A112670 
3A1 12680 
3A 11 2690 
3A1 12700 
3A112710 
3A1 12720 
3A112730 
3A1 12740 
3A112750 
3A1 12760 
3A112770 
3A1 12780 
3A1 12790 
3A1 12800 
3A112810 
3A1 12820 
3A112830 
3A1 12840 
3A112850 
3A1 12860 
3A 11 2870 
3A1 12880 
3A1 12890 
3A1 12900 
3A112910 
3A1 12920 
3A112930 



PROG ID 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 10A 



ADDRESS 
OF 
B-REG ROUTINE 

»»»*»****♦»»»»*»»**» 



30EF 092C 



30F0 0954 



30F1 0954 



30F2 096C 



30F3 096C 



30F4 0984 



30F5 0984 



30F6 099B 



30F7 099 B 



30F8 09B3 



30F9 09B3 



ADD 8000 I 8000 DID NOT TURN ON OVERFLOW 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 



DC B680 ADD 
8000 N/A N/A N/A N/A OFF AFTER LO 
0000 N/A N/A N/A N/A CtO AFTER A 
ADD 8000 t 8000 DID NOT TURN ON CARRY 



DC AfcCO LDX 1 
N/A N/A FFF4 N/A N/A N/A 
INDEX REG 1 WAS NOT LOADED EOUAL FFF4 



OC A6C0 LD 1 
N/A N/A FFF4 N/A N/A N/A 
A LOAD INSTR INDEXED BY INDEX REG 1 
LOADEO THE WRONG LOCATION 



DC A6C2 > LOX 2 
N/A N/A N/A 0004 N/A N/A 
INDEX REG 2 NOT LOADED EQUAL 0004 



DC A6C2 LO 2 
N/A N/A N/A 0004 N/A N/A 
A LOAO INSTR INDEXED BY INDEX RIG 2 
LOADEO THE WRONG LOCATION 



DC A6C4 LDX 3 
N/A N/A N/A N/A 0000 N/A 
INOEX REG 3 NOT LOADED EQUAL 0000 



DC A6C4 LD 3 
N/A N/A N/A N/A 0000 N/A 
A LOAD INSTR INDEXED BY INDEX REG 3 
LOADED THE WRONG LOCATION 



DC A6C6 LDX 3 
N/A N/A N/A N/A 0001 
INDEX REG 3 NOT EQUAL 0001 



N/A 



DC A6C6 LD 3 LONG FORM 
N/A N/A N/A N/A 0001 N/A 
A LONG FORM LOAO INOEXED BY INDEX REG 3 
LOADEO THE WRONG LOCATION 



DC 
N/A N/A 
INDEX REG 3 



A6C8 LOX 3 

N/A N/A FFFF 
NOT EOUAL FFFF 



N/A 



OC A6C8 LD 3 INDIRECT 
N/A N/A N/A N/A FFFF N/A 
AN INDIRECT LOAO INDEXED BY INDEX REG 3 
LOADED THE WRONG LOCATION 



3A1 12940 
3A1 12950 
3A1 12960 
3A112970 
3A112980 
3A112990 
3A1 13000 
3A113010 
3A1 13020 
3A 11 3030 
3A1 13040 
3A 11 3050 
3A1 13060 
3A113070 
3A1 13080 
3A 11 3090 
3A113100 
3A113110 
3A113120 
3A113130 
3A113140 
3A113150 
3A1 13160 
3A113170 
3A113180 
3A113190 
3 A 11 3200 
3A113210 
3A1 13220 
3A113230 
3A1 13240 
3A1 13250 
3A1 13260 
3A113270 
3A113280 
3A 11 3290 
3A1 13300 
3A113310 
3A113320 
3A113330 
3A1 13340 
3A113350 
3A1 13360 
3A 11 3370 
3A1 13380 
3A113390 
3A 113400 
3A113410 
3A1 13420 
3A113430 
3A1 13440 
3A1 13450 
3A113460 
3A 11 3470 
3A1 13480 
3A1 13490 
3A113500 
3A113510 
3A113520 
3A113530 
3A1 13540 
3A113550 
3A113560 
3A113570 
3A1 13580 
3A113590 
3A 113600 
3A113610 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE 1 1 



ADDRESS 
OF 
B-REG ROUTINE 

30FA 0A38 



30FB 0A3B 



30FC OA*F 



30FD OA*F 



30FE 0A66 



30FF 0A66 



3100 0A7O 



3101 0A7D 



3102 0A7D 



3103 OAAB 



••a************************************************ 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A700 SUB 

0000 N/A N/A N/A N/A N/A AFTER LD 

FFFF N/A N/A N/A N/A N/A AFTER S 

SUB 0001 FORM 0000 OID NOT EQUAL FFFF 



DC A700 SUB 

0000 N/A N/A N/A N/A OFF AFTER LD 

FFFF N/A N/A N/A N/A C AFTER S 

SUB 0001 FROM 0000 OID NOT SET CARRV 



DC A70* SUB 

0000 N/A N/A N/A N/A N/A AFTER LO 

0001 N/A N/A N/A N/A K/A AFTER S 
SUB FFFF FROM 0000 DID NOT EQUAL 0001 



DC A70* SUB 

0000 N/A N/A N/A N/A OFF AFTER LO 

0001 N/A N/A N/A N/A C AFTER S 
SUB FFFF FROM 0000 DID NOT SET CARRV 



DC A708 SUB 

BOOO N/A N/A. N/A N/A N/A AFTER LD 

7FFF N/A N/A N/A N/A N/A AFTER S 

SUB 0001 FROM 6000 DID NOT EQUAL 7FFF 



DC A708 SUB 

8000 N/A N/A N/A N/A OFF AFTER LD 

0001 N/A N/A N/A N/A AFTER CARRV 

AND OVERFLOW CONDITION HAD BEEN LOADED INTO 
ACCUMULATOR AS A NUMBER 
SUB 00C1 FROM 8000 DID NOT TURN ON OVERFLOW 



DC A70C SUB 

0000 N/A N/A N/A N/A N/A AFTER LD 

8000 N/A N/A N/A N/A N/A AFTER S 

SUB BOOO FROM 0000 OID NOT EQUAL 8000 



DC A70C SUB 

0000 N/A N/A N/A N/A OFF AFTER LD 

8000 N/A N/A N/A N/A CEO AFTER S 

SUB 8000 FROM 0000 OID NOT TURN ON OVERFLOW 



DC A70C SUB 

0000 N/A N/A N/A N/A OFF AFTER LD 

8000 N/A N/A N/A N/A C£0 AFTER S 

SUB 8000 FROM 0000 DID NOT TURN ON CARRV 



DC A7*0 AD-0000 0000 

FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER AD 
ACCUM NOT EQUAL FFFF 



3A113620 

3A113630 

3A 113640 

3A 11 3650 

3 A 11 3660 

3A 11 3670 

3A1 13680 

3A 11 3690 

3 A 11 3700 

3 A 11 3710 

3A1 13720 ' 

3A 11 3730 

3A1 137*0 

3A113750 

3A1 13760 

3A113770 

3A11378Q 

3A 11 3790 

3A113800 

3A113810 

3A1 13820 

3A113830 

3A1138*0 

3AU3850 

3A113860 

3*113870 

3A113880 

3A113890 

3A113900 

3A113910 

3A113920 

3A113930 

3AU39*0 

3A113950 

3A1 13960 

3A113970 

3A113980 

3A 11 3990 

3A1 1*000 

3A11*010 

3*11*020 

3A11*030 

3*11*0*0 

3*11*050 

3*11*060 

3*11*070 

3*11*080 

3*11*090 

3*11*100 

3*11*110 

3*11*120 

3*11*130 

3*11*1*0 

3*11*150 

3*11*160 

3*11*170 

3*11*180 

3*11*190 

3*11*200 

3*11*210 

3*11*220 

3*11*230 

3*11*2*0 

3*11*250 

3*11*260 

3*11*270 

3*11*280 

3*11*290 



DATE 
EC NO. 



02JAN66 
* I 5*90 



01MAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AUG68 
*20*03A 
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03A1-1 
11 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 219120* 
PAGE HA 



ADDRESS 
OF 
B-REG ROUTINE 

310* 0AA8 



3105 0AA8 



3106 OAAB 



3107 0AD7 



3108 0AD7 



3109 0AD7 



310A 0AD7 



310B 0B03 



310C 0B03 



3100 O 0B03 



*»»»***» >(*»*IUt«Ka>M«»»*»>»t»M»l>« 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A7*0 AD-0000 0000 

FFFF FFFF N/A N/A N/A N/A AFTER ADD 

FFFF FFFF N/A N/A N/A N/A AFTER RTE 

REG NOT EQUAL FFFF 



DC 



A7*0 AD-0000 0000 

FFFF FFFF N/A N/A N/A OFF AFTER LDD 

FFFF FFFF N/A N/A N/A OFF AFTER RTE 
OVERFLOW SET SHOULD NOT BE 



DC A 7*0 AD-0000 0000 

FFFF FFFF N/A N/A N/A OFF AFTER LDD 
FFFF FFFF N/A N/A N/A OFF AFTER RTE 
CARRY SET-SHOULD NOT BE 



DC A7*6 AD-FFFF FFFF 

0000 0001 N/A N/A N/A N/A AFTER LOD 

0000 0000 N/A N/A N/A N/A AFTER AD 
OVERFLOW SET- SHOULD NOT BE 



OC A7*6 AD-FFFF FFFF 

0000 0001 N/A N/A N/A N/A AFTER LDD 
0000 0000 N/A N/A N/A N/A AFTER AD 
REG NOT EQUAL 0000 



DC *7*6 AD-FFFF FFFF 

0000 0001 N/A N/A N/A OFF AFTER LUD 

0000 0000 N/A N/A N/A C AFTER AD 
CARRY NOT SET- SHOULD BE 



DC A7*6 AD-FFFF FFFF 

0000 0001 N/A N/A N/A OFF AFTER LDD 

0000 0000 N/A N/A N/A C AFTER AD 
CARRY NOT SET-SHOULD BE 



DC A7*C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A N/A AFTER LDD 
FFFF FFFE N/A N/A N/A N/A AFTER AD 
ACCUM NOT EQUAL FFFF 



DC 



A7*C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A N/A AFTER LDD 

FFFF FFFE N/A N/A N/A N/A AFTER AO 
Q REG NOT EQUAL FFFE 



DC A7*C AD-FFFF FFFF 

FFFF FFFF N/A N/A N/A OFF AFTER LDD 
FFFF FFFE N/A N/A N/A C AFTER AD 

OVERFLOW ON-SHOULO NOT BE 



3A1 1*300 
*»«»3A11*310 
3A11*320 
3A11*330 
3A11<.3*Q 
*»"*3A11*350 
3A1 1*360 
3A11*370 
3A11*3B0 
3A11*390 
3A 11**00 
3A11**10 
3A1 1**20 
3A11**30 
3A 11***0 
3A11**50 
3A1 1**60 
3A11**70 
3A1 1**80 
3A 11**90 
3A1 1*500 
3A11*510 
3A1 1*520 
3A11*530 
3A1 1*5*0 
3A11*550 
3A 11*560 
3A 11*570 
3A1 1*580 
3A 11*590 
3A1 1*600 
3A11*610 
3A1 1*620 
3A 11*630 
3A1 1*6*0 
3A 11*650 
3 A 11*660 
3A 11*670 
3A1 1*680 
3A 11*690 
3A 11*700 
3A11*710 
3A11*720 
3A 11*730 
3A 11*7*0 
3A 11*750 
3A1 1*760 
3A 11*770 
3A1 1*780 
3A1 1*790 
3A1 1*800 
3A11*810 
3A11*820 
3*11*830 
3A1 1*8*0 
3A 11*850 
3A1 1*860 
3*11*870 
3A1 1*680 
3A 11*890 
3A1 1*900 
3A 11*9 10 
3A1 1*920 
3A 11*930 
3A1 1*9*0 
3A 11*950 
3A 11*960 
3A 11*970 



DATE 
EC NO. 



02JAN66 
* 15*90 



01MAY66 
*15*90C 



15N0V66 
*196*3 



15FEB68 
*20*03 



26AUG68 
*20*03A 
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CPU FUNCTION TEST 
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PAGE 12 



ADDRESS 
OF 
B-REG ROUTINE 

310E 0803 



310F 0B2D 



3110 0B20 



3111 0B2D 



3112 0B2D 



3113 0B57 



3114 0B57 



3115 0B79 



3116 0B79 



3117 0B79 



3A1 14980 

•*»*»»*»»»»»*»*»»*****»*»*****»***»»»»»*»*»*»***»«» 3A 114990 

3A11S000 

3A115010 

A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3AU5020 

»»**»*»»********»»*»»»»»»*»»**»*»*»»»»*****»»*»***»3ai 15030 



DC A74C AD-FFFF FFFF 
FFFF PFFF N/A N/A N/A OFF AFTER 
FFFF FFFE N/A N/A N/A C AFTER 
CARRY NOT ON-SHOULO BE 



DC B742 AD-FFFF FFFF 
FFFF 7FFF N/A N/A N/A N/A AFTER 
FFFF 7FFE N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL FFFF 



OC B742 AD-FFFF 
FFFF 7FFF N/A N/A N/A 
FFFF 7FFE N/A N/A N/A 
REG NOT EQUAL 7FFE 



DC B742 AD-FFFF 
FFFF 7FFF N/A N/A N/A 
FFFF 7FFE N/A N/A N/A 
OVERFLOW SET-SHOULD NOT BE 



FFFF 
N/A AFTER 
N/A AFTER 



LOD 
AD 



LOD 
AD 



LDD 
AO 



FFFF 
OFF AFTER LDD 
C AFTER AD 



DC B742 AD-FFFF FFFF 
FFFF 7FFF N/A N/A N/A OFF AFTER 
FFFF 7FFE N/A N/A N/A C AFTER 
CARRY NOT SET-SHOULD BE 



DC B747 

0000 0001 N/A N/A 

0001 0002 N/A N/A 
ACCUM NOT EQUAL 0001 



AD-0001 ODD LOC 



N/A 
N/A 



N/A AFTER 
N/A AFTER 



LDD 
AO 



LDD 
AD 



OC B747 AD-0001 

0000 0001 N/A N/A N/A 

0001 0002 N/A N/A N/A 
Q REG NOT EQUAL 0002 



ODD LOC 
N/A AFTER LDD 
N/A AFTER AD 



DC A780 SD-0000 0001 
0000 0000 N/A N/A N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER SD 
ACCUM NOT EQUAL FFFF 



DC A780 SD-0000 0001 
0000 0000 N/A N/i N/A N/A AFTER LDD 
FFFF FFFF N/A N/A N/A N/A AFTER SD 
Q REG NOT EQUAL FFFF 



DC A780 SD-0000 0001 
0000 0000 N/A N/A N/A OFF AFTER LDD 
FFFF FFFF N/A N/A N/A C AFTER SD 
OVERFLOW ON-SHOULD NOT BE 



3A1 15040 
3A115050 
3A1 15060 
3AU5070 
3A1 15080 
3A115090 
3A115100 
3A115110 
3A115120 
3A115130 
3A1 15140 
3A115150 
3A115160 
3A115170 
3A115180 
3A115190 
3A1 15200 
3A115210 
3 Al 15220 
3A115230 
3A115240 
3A115250 
3A115260 
3A115270 
3A115280 
3A 11 5290 
3A1 15300 
3A115310 
3A115320 
3A115330 
3A1 15340 
3A115350 
3 Al 15360 
3A115370 
3A1 15380 
3A115390 
3A115400 
3A115410 
3A1 15420 
3A 11 5430 
3A1 15440 
3A1 15450 
3A1 15460 
3 A 11 5470 
3A1 15480 
3A 11 5490 
3A1 15500 
3A115510 
3A115520 
3A 11 5530 
3A1 15540 
3A115550 
3A115560 
3A 11 5570 
3A1 15580 
3A115590 
3A1 15600 
3A115610 
3A1 15620 
3A 11 5630 
3A1 15640 
3A 11 5650 



DATE 


02JAN66 


01MAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 


415490C 


419643 


420403 


420403A 



PROG 10 
PAGE 



03A1-1 
12 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 12A 



ADDRESS 
OF 
B-REG ROUTINE 

3118 0B79 



3119 0BA3 



311A 0BA3 



311B 0BB8 



311C OBBB 



311D OBCC 



311E OBCC 



311F OBEC 



3120 OBEC 



3121 OC01 



3A115660 
»*«*»»»»»»»*»»»»»»»»»»»»**»»»*»****»»»»»*»*»»»»»»» *3A11 5670 

3A1 15680 

3A 11 5690 

A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A115700 

••**•*»*••**•«••»•**•***«•*•**•**»«••**•••*•••*•••* 3A1 157 10 



OC A780 SD-0000 
0000 0000 N/A N/A N/A 
FFFF FFFr N/A N/A N/A 
CARRY NOT ON-SHOULO BE 



DC A786 
0000 0000 N/A 
0000 0001 N/A 
ACCUM NOT EQUAL TO 



DC 
0000 0000 

oooo oooi 



A786 
N/A 
N/A 



SO-FFFF 
N/A N/A 
N/A N/A 
0000 



SD-FFFF 
N/A N/A 
N/A N/A 



REG NOT EQUAL 0001 



OC A78A SD-FFFF 
0000 COOO N/A N/A N/A 
0000 C001 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



OC A78A SD-FFFF 
0000 COOO N/A N/A N/A 
0000 C001 N/A N/A N/A 
Q REG NOT EQUAL C001 



DC A78E SD-FFFF 
0000 0000 N/A N/A N/A 
0000 0001 N/A N/A N/A 
ACCUM NOT EQUAL 0000 



DC A78E SO-FFFF 
0000 0000 N/A N/A N/A 
0000 0001 N/A N/A N/A 
REG NOT EQUAL 0001 



0001 

OFF 

C 



FFFF 
N/A 
N/A 



FFFF 
N/A 
N/A 



FFFF 
N/A 
N/A 



FFFF 
N/A 
N/A 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



AFTER 
AFTER 



ODD LOC 
N/A AFTER 
N/A AFTER 



ODD LOC 
N/A AFTER 
N/A AFTER 



LDD 
SD 



LDD 
SD 



LDD 
SO 



LDD 
SD 



LDD 
SD 



LDD 
SO 



LDD 
SD 



OC A7C0 MULT-2AAA 
5555 N/A N/A N/A N/A N/A 
0E38 9C72 N/A N/A N/A N/A 
ACCUM NOT EQUAL 0E38 



AFTER 
AFTER 



DC A7C0 MULT-2AAA 
5555 N/A N/A N/A N/A N/A AFTER 
0E38 9C72 N/A N/A N/A N/A AFTER 
Q REG NOT EQUAL 9C72 



DC A7C4 MULT-FFFF 
FFFF N/A N/A N/A N/A N/A AFTER 
0000 0001 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0000 



LD 
M 



LD 

M 



LD 

H 



3A1 15720 
3A115730 
3A115740 
3A 11 5750 
3A115760 
3A115770 
3A115780 
3A 11 5790 
3A115800 
3A115810 
3A115820 
3A115830 
3A115840 
3A 11 5850 
3A1 15860 
3A 11 5870 
3A115880 
3A1 15890 
3A115900 
3A115910 
3A115920 
3A115930 
3A1 15940 
3A115950 
3A1 15960 
3A115970 
3A1 15980 
3A 11 5990 
3A1 16000 
3A1 16010 
3A1 16020 
3A116030 
3A1 16040 
3A 11 6050 
3A116060 
3A 11 6070 
3A1 16080 
3A 116090 
3A116100 
3A116110 
3A1 16120 
3A116130 
3A116140 
3A1 16150 
3A1 16160 
3A116170 
3A116180 
3A116190 
3 Al 16200 
3A116210 
3A1 16220 
3A1 16230 
3A1 16240 
3A 116250 
3A1 16260 
3A 116270 
3A1 16280 
3A 11 6290 
3A1 16300 
3A116310 
3A1 16320 
3A116330 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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••••••»•»»»»**»•«»*****»*»»»»*»»»»*»*»**»*»«»»»♦»♦»*»»»»»*»»»*» 

AOORESS * 
OF * 
e-REG ROUTINE * A-REG Q-REG XR-1 XR-2 XR-3 STATUS 

•»•*»•***»**•*»»«»»***»**»•****************»********»********•* 



3122 0C01 



3123 0C15 



3124 0C15 



3125 0C28 



3126 0C28 



3127 0C43 



3128 0C43 



3129 0C43 



312A 0C43 



312B 0C71 



* 
* 
* 

* 
« 



OC A7C4 MULT-FFFF 
FFFF N/A N/A N/A N/A N/A 
0000 0001 N/A N/A N/A N/A 
REG NOT EQUAL 00O1 



OC A7C8 NULT-FFFF 
0000 N/A N/A N/A N/A N/A 
0000 0000 N/A N/A N/A N/A 
AC CUM NOT EQUAL 0000 



AFTER 
AFTER 



AFTER 
AFTER 



3A116340 
•*******»3A116350 
3A 116360 
3A116370 
3A1 16380 
**»****«*3A1 16390 
3A1 16400 



OC A7C8 NULT-FFFF 
0000 N/A N/A N/A N/A N/A AFTER 
0000 0000 N/A N/A N/A N/A AFTER 
REG NOT EQUAL 0000 



« 
» 



OC A7CC HULT-0000 
FFFF N/A N/A N/A N/A N/A AFTER 
0000 0000 N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 0000 



OC A7CC NULT-0000 
FFFF N/A N/A N/A N/A N/A AFTER 
0000 0000 N/A N/A N/A N/A AFTER 
REG NOT EQUAL 0000 



DC A800 0V0-8000 
4000 7FFF N/A N/A N/A N/A AFTER 
8000 7FFF N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 8000 



OC A800 OVD-8000 
4000 7FFF N/A N/A N/A N/A AFTER 
8000 7FFF N/A N/A N/A N/A AFTER 
REG NOT EQUAL 7FFF 



DC A800 DV0-8000 
4000 7FFF N/A N/A N/A OFF AFTER 
8000 7FFF N/A N/A N/A N/A AFTER 
OVERFLOW ON-SHOULD NOT BE 



OC A800 DVO-8000 
4000 7FFF N/A N/A N/A OFF AFTER 
8000 7FFF N/A N/A N/A N/A AFTER 
CARRY ON-SHOULD NOT BE 



OC A806 DVD-5555 
1C71 BBE3 N/A N/A N/A N/A AFTER 
5555 20AA N/A N/A N/A N/A AFTER 
ACCUM NOT EQUAL 5555 



LD 

M 



LD 
M 



LD 
M 



LD 
M 



LD 

M 



LDD 
D 



LDO 
D 



LDD 
D 



LDD 
D 



LDD 
D 



3A116410 
3A116420 
3A116430 
3A1 16440 
3A 11 6450 
3A1 16460 
3A 116470 
3A1 16480 
3A116490 
3A116S00 
3A116510 
3A1 16520 
3A116530 
3A1 16540 
3A116550 
3A1 16560 
3A116570 
3A116580 
3AU6590 
3A1 16600 
3A116610 
3A1 16620 
3A116630 
3A1 16640 
3A116650 
3A1 16660 
3A 11 6670 
3A1 16680 
3 A 116690 
3A1 16700 
3A116710 
3A1 16720 
3A1 16730 
3A1 16740 
3A1167S0 
3A1 16760 
3A 11 6770 
3A1 16780 
3AU6790 
3A1 16800 
3A116810 
3A1 16820 
3A116830 
3A1 16840 
3A 11 6850 
3A1 16860 
3A116870 
3A116880 
3A116890 
3A1 16900 
3A 1169 10 
3A116920 
3A116930 
3A1 16940 
3A116950 
3A1 16960 
3A116970 
3A1 16980 
3A116990 
3A1 17000 
3A 11 7010 



DATE 
EC NO. 



02JAN66 
415490 



01MAV66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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**»**»*»*****»*»»*»» 
AODRE.SS 
OF 
B-REG ROUTINE 

******************** 

312C 0C71 



312D 0C71 



312E 0C71 



312F 0C9A 



3130 0CA9 



3131 0CB4 



3132 OCBF 



3133 OCCA 



3134 0CD5 



3135 0D56 



******************************* •***?**••* 



******* 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

a***************************** ***»«Tj**»n »*»»»».» 

OC A806 DVD-5555 
1C71 BBE3 N/A N/A N/A N/A AFTER LDD 
5555 20AA N/A N/A N/A N/A AFTER D 
REG NOT EQUAL 2DAA 



DC A806 DVD-5555 
1C71 B3E3 N/A N/A N/A OFF AFTER LDD 
5555 2DAA N/A N/A N/A N/A AFTER D 
OVERFLOW ON-SHOULD NOT BE 



OC A806 DVD-5555 
1C71 BBE3 N/A N/A N/A OFF AFTER LDD 
5555 2DAA N/A N/A N/A N/A AFTER 
CARRY ON-SHOULD NOT BE 



DC A80C 0V0-0000 

0000 0001 N/A N/A N/A OFF AFTER LOD 

N/A N/A N/A N/A N/A AFTER D 

OVERFLOW NOT ON- SHOULD BE OR Q-REG NOT I 



DC A80E DVD-0001 
4000 0000 N/A N/A N/A OFF AFTER LDD 
N/A N/A N/A N/A N/A AFTER D 
OVERFLOW NOT ON-SHOULD BE 



OC B800 DVD-4000 
AOOO 0000 N/A N/A N/A OFF AFTER LDD 
N/A N/A N/A N/A N/A AFTER D 
OVERFLOW NOT ON-SHOULD BE 



OC B802 OVD-BOOO 
COOO 0000 N/A N/A N/A OFF AFTER LDO 
N/A N/A N/A N/A N/A AFTER D 
OVERFLOW OFF — SHOULD BE ON 



OC B804 DVD-0001 
0000 FFFF N/A N/A N/A OFF AFTER LDD 
N/A N/A N/A N/A N/A AFTER D 
OVERFLOW OFF — SHOULD BE ON 



DC B806 DVD-0001 
FFFF 7FFF N/A N/A N/A OFF AFTER LDD 
N/A N/A N/A N/A N/A AFTER D 
OVERFLOW OFF — SHOULD BE ON 



DC A840 MOX 1 

N/A N/A 0000 N/A N/A N/A AFTER LDX 

N/A N/A FFFF N/A N/A N/A AFTER MDX 

INDEX REG 1 NOT EQUAL FFFF WHEN MODIFIED 
BY MINUS 1 





3136 0D64 


DC 


A842 


MDX 


DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 415490C 


419643 


420403 


420403A 



MOX LONG FORM 



3A117020 
*»*3A117030 
3A1 17040 
3 A 11 7050 
3A1 17060 
•••3A117070 
3A 117080 
3A 11 7090 
3A117100 
3A117110 
3A117120 
3A117130 
3A117140 
3A117150 
3A117160 
3A117170 
3A1171B0 
3A117190 
3A1 17200 
3A117210 
3A117220 
3A 11 7230 
3A1 17240 
3A117250 
3A1 17260 
3A 11 7270 
3A1 17280 
3A 117290 
3A1 17300 
3A117310 
3A117320 
3A117330 
3A1 17340 
3A117350 
3A1 17360 
3A1 17370 
3A1 17380 
3A 11 7390 
3A1174O0 
3A117410 
3A1 17420 
3A117430 
3A1 17440 
3A 117450 
3A117460 
3A 11 7470 
3*117480 
3A 11 7490 
3AI 17500 
3A117510 
3A1 17520 
3A117530 
3A117540 
3A117550 
3A1 17560 
3A1 17570 
3A1 17580 
3A117590 
3A1 17600 
3A1 17610 
3A1 17620 
3A 11 7630 
3A1 17640 
3A 11 7650 
3A1 17660 
3A1 17670 
3A1 17680 
3A 11 7690 
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• ADO CI TO MEMORY FAILED 3A11T700 

»**»*»•»*♦»*»»*»»♦»»»»»*****»»*»»»»»*»*•***»#»»»»» *»»»»»*»*»*«******»»»»3A 11 77 1q 

ADDRESS * 3A1 17720 

OF * 3A1 17730 

B-REG ROUTINE * A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A1 17740 

**»»»»»»»**»********»»***»»»*»»*»*»»»»»»***»»»»»»»»»»»»»»»»»*»*»#»»**»**3A H7750 







* 










3A1 17760 








* 


- 








3A 11 7770 






3137 0D79 




OC A844 MDX 2 LONG FORM 




3A1 17780 








• 


N/A N/A N/A FFFE N/A 


N/A 


AFTER 


LOX 


3A117790 








• 


N/A N/A N/A FFFF N/A 


N/A 


AFTER 


MDX 2 


3A1 17800 








* 


INDEX REG 2 NOT EQUAL TO FFFF 


AFTER 


MDX CI 


3A117810 








* 


TO INDEX REG 2 






° 


3A117820 








• 










3A117830 








• 










3A1 17840 






3138 0D88 




DC A846 MDX 3 








3A1 17850 








* 


N/A N/A N/A N/A FFFF 


N/A 


AFTER 


LDX 


3A1 17860 








• 


N/A N/A N/A N/A 0000 


N/A 


AFTER 


MDX 2 


3A 11 7870 








• 


MDX DID NOT CAUSE A SKIP WHfcN 


INDEX 


REG 3 




3A117880 








• 


WENT TO 0000 








3A 11 7890 








• 










3A1 17900 








• 










3A117910 






3139 0D92 




DC A848 MDX 1 








3A1 17920 








* 


N/A N/A FFFF N/A N/A 


N/A 


AFTER 


LDX 


3AU7930 








• 


N/A N/A 0003 N/A N/A 


N/A 


AFTER 


MDX 1 


3A 117940 








• 


MDX DID NOT CAUSE A SKIP WHEN 


THE SIGN 




3A1 17950 








» 


CHANGED ON INDEX REG 1 








3A1 17960 








• 










3A117970 








* 










3A1 17980 






313A 0D9C 




DC A849 MOX 1 INDIRECT 




3A 11 7990 








• 


N/A N/A FFFE N/A N/A 


N/A 


AFTER 


LDX 


3A1 18000 








* 


N/A N/A FFFF N/A N/A 


N/A 


AFTER 


LDX 11 


3A118010 








• 


INDIRECT MOX OF INDEX REG 1 BY 


Gl FAILED 




3A1 18020 








• 










3A118030 








• 










3A1 18040 


/ 
/ 




3138 ODCF 




DC A880 SLCA-XR 


1 






3A1 18050 






* 


0000 N/A 0010 N/A N/A 


N/A 


AFTER 


LDX 


3A1 18060 






• 


0000 N/A 0000 N/A N/A 


N/A 


AFTER 


SLCA 


3A 11 8070 






* 


ACCUM NOT EOUAL 0000 








3A11B080 








• 










3 A 11 8090 








• 










3A1 18100 






313C ODCF 




DC A880 SLCA-XR 


1 






3A118110 








• 


0000 N/A 0010 N/A N/A 


N/A 


AFTER 


LOX 


3A1 18120 








* 


0000 N/A 0000 N/A N/A 


N/A 


AFTER 


SLAC 


3A118130 








* 


INDEX REG 1 NOT EQUAL 0000 








3A1 18140 








• 










3A118150 








• 










3A1 18160 






31 3D 0DF6 




DC A884 SLCA-XR 


1 






3A118170 








* 


0001 N/A FFDO N/A N/A 


N/A 


AFTER 


LDX 


3A1 18160 








* 


8000 N/A FFC1 N/A N/A 


N/A 


AFTER 


ASCL 


3A11B190 








• 


ACCUM NOT EQUAL 8000 








3A1 18200 








• 










3A118210 








• 










3A1 18220 






313E 00F6 




OC A884 SLCA-XR 


1 






3A118230 








* 


0001 N/A FFDO N/A N/A 


N/A 


AFTER 


LOX 


3A1 18240 








* 


8000 N/A FFC1 N/A N/A 


N/A 


AFTER 


LOX 


3A 11 8250 








* 


INDEX REG 1 NOT EQUAL FFC1 








3 Al 18260 








• 










3A118270 








* 










3A1 18280 






313F 0E1E 




DC A888 SLCA-XR 


1 






3A 11 8290 








* 


8000 N/A 0010 N/A N/A 


N/A 


AFTER 


LDX 


3A1 18300 








* 


8000 N/A 0010 N/A N/A 


N/A 


AFTER 


SLCA 


3A 11 8310 








* 


ACCUM NOT EQUAL 8000 








3A1 18320 








• 










3A118330 








• 










3A1 18340 






3140 0E1E 




DC A888 SLCA-XR 


1 






3A118350 








* 


8000 N/A 0010 N/A N/A 


N/A 


AFTER 


LDX 


3A1 18360 








• 


8000 N/A 0010 N/A N/A 


N/A 


AFTER 


SLCA 


3A 11 8370 




DATE 


02JAN66 01MAY66 


15N0V66 15FEB68 26AUG68 








PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 420403 420403A 








PAGE 


14 
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ADDRESS 
OF 
B-REG ROUTINE 



3141 0E59 



3142 0E59 



3143 0E59 



3144 0E78 



3145 0E78 



3146 0E78 



3147 0E9A 



3148 0E9A 



3149 0E9A 



314A OEBA 



INDEX REG 1 NOT EOUAL 0010 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 



DC A88C SLC-XR 1 
0000 0000 0020 N/A N/A N/A AFTER LDX 
0000 0000 0000 N/A N/A N/A AFTER SLC 
ACCUM NOT EOUAL 0000 



DC A88C SLC-XR 1 
0000 0000 0020 N/A N/A N/A AFTER LOX 
0000 OOLO 0000 N/A N/A N/A AFTER SLC 
REG NOT EOUAL 0000 



DC A88C SLC-XR 
0000 0000 0020 N/A N/A 
0000 0000 0000 N/A N/A 
INDEX REG 1 NOT EOUAL 0000 



DC B882 SLC-XR 
0000 0002 FFDF N/A N/A 
8000 0000 FFC1 N/A N/A 
ACCUM NOT EOUAL 8000 



OC B882 SLC-XR 
0000 0002 FFDF N/A N/A 
8000 0000 FFC1 N/A N/A 
REG NOT EQUAL 0000 



N/A AFTER LOX 
N/A AFTER SLC 



N/A AFTER LDX 
N/A AFTER SLC 



N/A AFTER LOX 
N/A AFTER SLC 



DC B882 SLC-XR 1 
0000 0002 FFDF N/A N/A N/A AFTER LOX 
8000 0000 FFC1 N/A N/A N/A AFTER SLC 
INDEX REG 1 NOT EQUAL FFC1 



DC B884 SLC-XR 
0000 0002 001F N/A N/A 
8000 0000 0001 N/A N/A 
A SLC TERMINATED BY A ONE BIT IN ACCUM BIT 
ZERO OID NOT TURN ON CARRY 



N/A AFTER LDD&LOX 
C AFTER SLC 



OC B884 SLC-XR 

0000 0002 001F N/A N/A 

8000 0000 0001 N/A N/A 

ACCUM HAS NOT EOUAL TO 8000 



N/A AFTER LDDCLDX 
C AFTER SLC 



DC 8884 SLC-XR 1 
0000 0002 001F N/A N/A N/A AFTER LDDtlDX 
8000 0002 0001 N/A N/A C AFTER SLC 
A SLC TERMINATED BY A ONE IN ACCUM BIT 
ZERO OID NOT LEAVE XR 1 EQUAL 0001 



DC B885 SLC-IX 1 
0000 0002 001C N/A N/A N/A AFTER IDDtlOX 
2000 0000 0000 N/A N/A OFF AFTER SLC 
A SLC TERMINATED BY XR 1 GOING TO ZERO LEFT 



3A118380 
3 A 11 8390 
3A1 18400 
3A118410 
3A1 18420 
»3A 118430 
3A1 18440 
3A 118450 
3A118460 
3A 11 8470 
3A1 18480 
3 A 11 8490 
3A118500 
3A118510 
3A1 18520 
3A118530 
3A1 18540 
3A 11 8550 
3A118560 
3A118570 
3A1 18580 
3A118590 
3A1 18600 
3A118610 
3A118620 
3A118630 
3A1 18640 
3A118650 
3A1 18660 
3A 11 8670 
3A1 18680 
3A1 18690 
3A118700 
3A118710 
3A1 18720 
3A118730 
3A1 18740 
3A118750 
3A1 18760 
3A 118770 
3A118780 
3A 118790 
3 Al 18800 
3A118B10 
3A118820 
3A118830 
3A118840 
3A118850 
3A1 18860 
3A118870 
3A1 18880 
3A118890 
3A1 18900 
3A118910 
3A1 18920 
3A118930 
3A1 18940 
3A118950 
3A1 18960 
3A1 18970 
3A1 18980 
3A 11 8990 
3A1 19000 
3A119010 
3A1 19020 
3A1 19030 
3A1 19040 
3A1 19050 



DATE 
EC NO. 



02JAN66 
41S490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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PAGE 



03A1-1 
14A 



Ift« KAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SVS T EN 
C«>U FUNCTION TEST 



PART NO. 219120*. 
PAGE IS 



ADDRESS 
OF 
B-k£G ROUTINE 



314B 0ED6 



314C 0ED6 



3140 0EF1 



314E OEFB 



314F 0F05 



3150 OFOF 



3151 0F19 



3152 0F24 



3153 0F24 



315* 0F24 



3155 0F3E 



3156 0F46 



DC 



B8A0 CMP A GREATER M 
4000 N/A N/A N/A N/A N/A 
A GREATER THAN M CMP FAILED 



DC B8A0 CMP A GREATER M 

4000 N/A N/A N/A N/A N/A AFTER LD 

4000 N/A N/A N/A N/A N/A AFTER CMP 

ACC DISTROYEO AFTER CMP 



DC B8A1 CMP A 
0000 N/A N/A N/A N/A 
ACC LESS THAN M FAILS 



DC B8A2 CMP A 
0000 N/A N/A N/A N/A 
ACC LESS THAN M FAILS 



LESS 
N/A 



LESS 
N/A 



THE CARRY FF SET 3AU9060 

»*»»»»*»»»»»»»»»*»»*»**»***»******»»*»*♦♦*»*«***»»» 3* ii 9070 

3A1 19080 

3A 119090 

A-REG Q-REG XR-1 XR-2 XR-3 STATUS 3A119100 

»»»»»*»»»»»»»»»*»****»*#*»»»»*»**»»***»***»»****»*»3A119110 

3A119120 
3A119130 
3A119140 
3A119150 
3A119160 
3A1 19170 
3A1191B0 
3A119190 
3A1 19200 
3A119210 
3A1 19220 
3A119230 
3A1 19240 
3A119250 
3A1 19260 
3A119270 
3A1 19280 
3A I 19290 
3A119300 
3A119310 
3A119320 
3A119330 
3A119340 
3A119350 
3 A 119 360 
3A119370 
3A119380 
3A119390 
3A 119400 
3A119410 
3A 119420 
3A1 19430 
3A1 19440 
3A1 19450 
3A1 19460 
3A1 19470 
3A1 19480 
3A I 19490 
3A1 19500 
3A119510 
3 Al 19520 
3A119530 
3A119540 
3A 119 550 
3A1 19560 
3A1 19570 
3A1 19580 
3A119590 
3A119600 
3A119610 
3A1 19620 
3A 119630 
3A1 19640 
3A 119650 
3A1 19660 
3A1 19670 
3A1 19680 
3A1 19690 
3A119700 
3A 1197 10 
3A1 19720 
3A 119730 



DC B8A3 CMP A LESS M 
0000 N/A N/A N/A N/A N/A 
ACC LESS THAN M FAILS 



DC BBA4 CMP A LESS M 
8000 N/A N/A N/A N/A N/A 
ACC LESS THAN N FAILS 



DC 
1000 
ACC 60 



B8A5 
N/A N/A 
H FAILED 



CMP A 
N/A N/A 



EO N 

N/A 



DC 
8000 0001 



88C0 
N/A 



OCM AQ GTR M.HC1 
N/A N/A N/A 



DCM AO GREATER THAN M, Mtl FAILED 



DC B8C0 DCM AO GTR M, 
8000 0001 N/A N/A N/A N/A 
ACC DISTROYEO AFTER DCM 



Mtl 



DC B8C0 DCM AO GTR M.Mti 
8000 0001 N/A N/A N/A N/A 
REG DISTROYEO AFTER DCM 



DC B8C1 
0000 8000 N/A 
DCM FAILED MHtN A, 



DCM AQ LESS M.MU 
N/A N/A N/A 
LESS THAN M, MCI 



DC B8C2 DCM AO 


EO M.MC1 


0000 8000 N/A N/A N/A 


N/A 


OCM FAILEO WHEN A,Q EQ M, NCI 





DATE 


02JAN66 


01MAY66 


1 5N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 


41549CC 


419643 


420403 


420403A 
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IBM MAINTENANCE DIAGNOSTIC PPOGRAH FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



P4K1 *_,. 2191204 
PA&t 15A 



ADDRESS 
OF 
B-kEG ROUTINE 
••••••••••••••a***** 

3157 087F 



3158 087F 



3159 0897 



31 5A 0897 



315B 08AF 



315C 08AF 



315D 09DC 



315E 09ER 



315F 09F4 



*•»•»•»»•**»*»»»*•»**»»»»»»»»»*»»»#»»**»•» 



*»*»*»•» 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC A660 LDX 1 -1 

N/A N/A 0000 0000 0000 N/A AFTER 

N/A N/A fFFF 0000 0000 N/A AFTER 
INDEX 2 CHANGED 



Loxas 

LDX 1 



DC A660 
N/A N/A 0000 
N/A N/A FFFF 
INDEX 3 CHANGED 



DC A662 
N/A N/A 0000 
N/A N/A 0000 
INDEX 1 CHANGED 



OC A662 
N/A N/A OOOO 
N/A N/A 0000 
INDEX 3 CHANGED 



DC A664 
N/A N/A 0000 
N/A N/A 0000 
INDEX 1 CHANGED 



OC A664 
N/A N/A 0000 
N/A N/A 0000 
INDEX 2 CHANGED 



LDX 1 -1 
0000 OOOC N/A AFTER LDXBS 
0000 0000 N/A AFTER LDX 1 



LDX 2 -1 

0000 0000 N/A AFTER LDX3S 
FFFF 0000 N/A AFTER LDX 2 



LOX 2 -1 
0000 0000 N/A AFTER LDX8S 
FFFF 0000 N/A AFTER LDX 2 



LDX 3 -1 
0000 0000 N/A AFTER LDXiS 
0000 FFFF N/A AFTER LOX 3 



LDX 3 -1 
0000 0000 N/A AFTER LDX3S 
0000 FFFF N/A AFTER LDX 3 



DC A6D0 INOEXEO INST F«0 
INITIALLY XR 1 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C0 
SHORT FORM INDEXED INST FAILED XXilo 



DC A6D2 INDEXED INST F#0 
INITIALLY XR 2 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C2 
SHORT FORM INDEXED INST FAILED XXf2o 



OC A6D3 INDEXED INST FtO 
INITIALLY XR 3 HAS CORE LOCATION OF 

SYMBOLIC LABEL N6C1 
AFTER THE TEST THE ACC SHOULD HAVE 

CORE LOCATION OF SYMBOLIC LABEL N6C1 
SHORT FORM INDEXED INST. FAILEO XXf3n 



3A1 19740 
•3A119750 
3A 119760 
3A119770 
3A1 19780 
•3A119790 
3A1 19800 
3A119810 
3A119820 
3A119830 
3A1 19840 
3A119850 
3A1 19860 
3A119870 
3A119880 
3AU9890 
3A1 19900 
3A119910 
3A1 19920 
3A119930 
3A1 19940 
3A119950 
3A1 19960 
3A119970 
3A1 19980 
3A 119990 
3A1 20000 
3A120010 
3A1 20020 
3A120030 
3A1 20040 
3A 120050 
3 Al 20060 
3A 120070 
3A1 20080 
3A 120090 
3A1 20100 
3A120110 
3A120120 
3A120130 
3A1 20140 
3A 120150 
3A120160 
3A 1201 70 
3A120180 
JA120190 
3A1 20200 
3A120210 
3A120220 
3A 120230 
3A) 20240 
3A 120250 
3A1 20260 
3A 120270 
3A1 20280 
3A 120290 
3A 120 300 
3A120310 
3A120320 
3A 120330 
3A1 20340 
3A 120350 
3A120360 
3A 120370 
3A1 20380 
3A120390 
3A 120400 
3A120410 



DATE 
EC NO. 
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01MAV66 
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* 3A120420 

«»*»****» »*»*»»#*»»*»**«*»»»«»»***»»•»»***»#*#****»»**»»**» »*»»**»*#»»»*3A 120430 

ADDRESS • 3A120440 

OF * 3A 120450 

ROUTINE » A-REG O-REG XR-1 XR-2 XR-3 STATUS 3A120460 

»»*»»»*»»*»»»»;*****»**»*«»»*«♦***♦*»**»******»**»»**»»»««»»*««*»» 3A 12 0470 
»•«»»»»»»»«»»»»»»»»*»*»»*»»*»»»*»»»»«*»»»*»******»**•****»»»»»»»» 3A1 20480 



B-REG 

3160 ODCF 



3161 0DF6 



3162 0E3B 



3163 OAOO 



3164 OAOC 



3165 0A18 



3166 0A29 



3167 0810 



3168 0D9C 



3169 08C9 



DC A880 SLCA CK CARRY 

0000 FFFF OOOA N/A N/A C AFTER LDOtLOS 

0000 FFFF 0000 N/A N/A OFF AFTER STS 
CARRY ON SHOULD BE OFF 



DC 
0001 0010 
8000 0010 
CARRY OFF, 



DC 

0001 N/A 

0002 N/A 
SLCA TOO 



A884 SLCA CK CARRY 

FFOO N/A N/A OFF AFTER LDDCLOX 

FF01 N/A N/A C AFTER SLCA 
SHOULD BE ON 



A889 

0010 

N/A 

FAILED 



NON INDEXED SLCA 
0010 0010 N/A AFTER LD 
N/A N/A N/A AFTER SLCA 



DC 

0001 N/A 
0004 N/A 
INOEXEO SLA 



DC 
0004 N/A 
0001 N/A 
INDEXED SRA 



A6D5 
0002 
N/A 
FAILED 



INDEXEO SLA 
N/A N/A N/A AFTER LDCLDX 
N/A N/A N/A AFTER SLA 



A6D6 INDEXED SRA 

N/A 0002 N/A N/A AFTER LDXtLD 
N/A N/A N/A N/A AFTER SRA 
FAILED 



DC 



A6F0 INDEXED BSC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL N6F1 
ACC D1STR0YED AFTER INDEXEO BSC 



DC A6F1 INDIR, 
N/A N/A 0001 N/A M/A 
N/A N/A N/A N/A N/A 
INDIRECT, INDEXED BSC FAILED 



INDEX BSC 

N/A AFTER LDX 
N/A AFTER BSC 



DC A640 STX CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL H640 
ACC DISTROYED AFTER STX 



DC A 8 49 MOX CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL H849 
ACC DISTROYED AFTER NDX 



DC A670 
0001 N/A 0010 
0000 N/A 0000 
FALSE DECODE OF ACC 



ACC DECDOE 
N/A N/A N/A 
N/A N/A N/A 
BE ZERO 



• » EACH BIT POSITION IS TESTED 

* 
* 



3A 120490 
3A1 20500 
3A120510 
3A1 20520 
3A120530 
3A120540 
3A120550 
3A1 20560 
3A 120570 
3A1 20580 
3A120590 
3A1 20600 
3A120610 
3A1 20620 
3A 120630 
3A1 20640 
3A120650 
3A1 20660 
3A120670 
3A1206B0 
3A 120690 
3A1 20700 
3A120710 
3A120720 
3A120730 
3A120740 
3A 120750 
3A1 20760 
3A 120770 
3A120780 
3A 120790 
3A120800 
3A120810 
3A120820 
3A 120830 
3A120840 
3A 120850 
3A120860 
3A120870 
3A120880 
3A 120890 
3A1 20900 
3A120910 
3A120920 
3A120930 
3A120940 
3A120950 
3A120960 
3A 120970 
3A120980 
3A 120990 
3A121000 
3A121010 
3A121020 
3A121030 
3A121040 
3A 12 1050 
3A121060 
3A 12 1070 
3A1210B0 
3A 12 1090 
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»♦*»********»*****»* 
ADDRESS 
OF 
B-REG ROUTINE 

316A 0D04 



316B ODOF 



316C 0D1A 



316D 0D26 



316E 0026 



316F 0D64 



3170 05FC 



3171 00B2 



3172 ODBC 



3173 0E46 



3174 0F69 



»**»**»»»»*«*»»**»***»»**»**»*•*»»»»»»»•»»»»*•»»»»» 



A-REG O-REG XR-1 XR-2 XR-3 STATUS 

DC B807 DVD OVFLO 
6100 0000 N/A N/A N/A OFF AFTER LDD 

N/A N/A N/A N/A N/A AFTER D 
OVFLO NOT ON 



OC B808 
8000 0000 N/A 
N/A N/A N/A 
OVFLO NOT ON 



DVD OVFLO 
N/A N/A OFF AFTER LOD 
N/A N/A AFTER D 



DC B809 DVD NO OVFLO 
FFFF FFFF N/A N/A N/A OFF AFTER LDD 

N/A N/A N/A N/A N/A OFF AFTER D 
OVFLO ON, SHOULD BE OFF 



DC B810 MPY-DIV ZERO REM 
ACC WRONG AFTER MPY-DIV TEST 



OC B810 MPY-DIV ZERO REM 
REG WRONG AFTER MPY-DIV TEST 



DC A842 MOX CK ACC 
INITIALLY ACC HAS CORE LOCATION OF 

SYMBOLIC LABEL N844 
ACC DISTROYED AFTER ADD TO MEMORY 



OC A50A BSC CK ACC 
8001 N/A N/A N/A N/A N/A AFTER LO 
8001 N/A N/A N/A N/A N/A AFTER BSC 
ACC DISTROYED AFTER BSC CONDITIONS MET 



DC A84A 
MEMORY LOC HAS ZERO 
MOX FAILED TO SKIP 



MDX MEM CK SKIP 



DC A85A MDX MEN CK NO SKP 
MEMORY LOC IS NON ZERO 
MDX SK1PED, SHOULD NOT HAVE 



DC ABBA 
0000 FFFF 0010 
7FFF N/A N/A 
ACCUM NOT EO TO 7FFF 



DC 



FOOO 



SH 15 NO INDEX 
0010 0010 NAFTER LDX3S 
N/A N/A NAFTER SLC 



IMPROPER CONTROL 
OPERATION SPECIFIED, 
BIT SH 14 ON WITHOUT 
BIT SW 8 OR 12 ON. 
CORRECT SWS AND PUSH 
START TO CONTINUE 



3A121100 

3A121110 

3A121120 

3A12U30 

3A121140 

3A121150 

3A121160 

3A121170 

3A121180 

3A 12 1190 

3A121200 

3A121210 

3A121220 

3A 12 1230 

3A121240 

3A 12 1250 

3A121260 

3A121270 

3A121280 

3A121290 

3A121300 

3A121310 

3A121320 

3A 12 1330 

3A121340 

3A 12 1350 

3A121360 

3A 12 1370 

3A121380 

3A121390 

3A121400 

3A121410 

3A121420 

3A 12 1430 

3A121440 

3A121450 

3A121460 

3A121470 

3A121480 

3A 12 1490 

3A121500 

3A 121510 

3A121520 

3A 12 1530 

3A121540 

3A121S50 

3A121560 

3A 12 1570 

3A121580 

3A 12 1590 

3A121600 

3A 121610 

3A121620 

3A121630 

3A121640 

3A121650 

3A121660 

3A 12 1670 

3A121680 

3A 12 1690 

3A121700 

3A121710 

3A121720 

3A121730 

3A121740 

3A 12 1750 

3A121760 

3A 12 1770 
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3175 ORG 300 

012C 03A1 DC /03A1 PID 

« TEST MDX OPERATION 

****»*******»»*»*»**»»**♦*»»»***»»»»»**»*»*»» 
***********»**»***»»»»♦»♦**»**»*****»**»»*»*»«***#»»*****#*»**#* 
DATA OR «LA- OPER- 
INSTRUCT10N »BEL ATION FT OPERANDS £ REMARKS IDCSEO* AT RIGHT 



CORE 
AOOR 

••••••• 

012D 
012E 
012F 

0130 

0131 



3000 
7001 
3004 

7002 
3005 



0132 3006 



0133 

0134 



7004 
3007 



0135 3008 

0136 3009 

0137 300A 



0138 

0139 

013A 
0138 
013C 



7002 
300B 

7004 
70FE 
300C 



01 3D 300D 
013E 300E 



013F 

0140 

0141 

0142 



0143 
0144 
0145 
0146 

0147 
0148 



0149 
014A 
014B 



2003 
4802 
7002 
300F 

0000 
4801 
7001 
3010 

4801 
3011 



2000 
4802 
3012 



xooo 


DC 


/3000 


A080 


MDX 


G080 




DC 


/3004 


* 






G080 


MOX 


G081 




DC 


/3005 


• 








DC 


/3006 


• 






G081 


MDX 


G082 


* 


OC 


/3007 


4 


DC 


/3008 




DC 


/3009 


• 








DC 


/300A 


• 






G082 


MDX 


GO 84 




DC 


/300B 


* 






G083 


MDX 


AOCO 


G084 


MDX 


G083 




DC 


/300C 



SET SWITCHES TO RUN 



ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


1 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


2 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


2 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


4 


FAILED 


ERR 


ID 


£ 


ERR WAIT 


MDX 


BY 


2 


FAILED 



DC 



DC 



/300D 



/300E 



* 






* 






* 






• 




1 


» 






**•******•**•******< 


AOCO 


LDS 


3 




BSC 


C 




MOX 


G0C1 




DC 


/300F 


* 






N100 


DC 





G0C1 


BSC 







MDX 


G0C2 




DC 


/3010 


* 






G0C2 


BSC 







DC 


/3011 


• 






• 








LOS 







BSC 


c 




DC 


/3012 



EXIT TO NEXT ROUTINE 

ERR ID £ ERR WAIT 

MDX BY -2 FAILED 

ERR ID £ ERR WAIT 

MDX BY -2 FAILED 

ERR ID £ ERR WAIT 

MOX BY -2 FAILED 

TEST OF BSC SKIP WHEN IT 
SHOULD NOT 



SET C AND OF ON 
SK IF CARRY IS OFF 

ERR ID £ ERR WAIT 
BSC-CARRY FAILED 



ERR ID £ ERR WAIT 
BSC-OVERFLOW FAILED 
CK IF OF WAS RESET 
ERR ID £ EP.R WAIT 
BSC-OVFLW SKPD-SHOULD 
•NOT HAVE 

RESET CARRY TO OFF 
SK IF CARRY IS OFF 
ERR ID £ ERR WAIT 
BSC-C DID NOT SKIP 



3A121780 
3A 12 1790 
3A121800 
3A121810 
3A121820 
3A 12 1830 
3A121840 
3A121850 
3A121860 
3A 12 1870 
3A1218B0 
3 A 12 1890 
3A121900 
3A121910 
3A121920 
3A 121930 
3A121940 
3A 12 1950 
3A121960 
3A121970 
3A121980 
3A 12 1990 
3A122000 
3A122010 
3 Al 22020 
3A122030 
3A122040 
3A 122050 
3A122060 
3A122070 
3A122080 
3A 122090 
3A122100 
3AL22110 
3A122120 
3AJ22130 
3A122140 
3A 122150 
3A122160 
3A 122170 
3A122180 
3A122190 
3Ai 22200 
3A122210 
3A122220 
3A122230 
3A1 22240 
3A122250 
3A122260 
3A 12 2270 
3A1 22280 
3A122290 
3A122300 
3A122310 
3*122320 
3A122330 
3A122340 
3A122350 
3A122360 
3A 122370 
3A122380 
3A122390 
3A122400 
3A122410 
3A122420 
3A122430 
3A 122440 
3A 12 2450 



CORE DATA OR 
ADDR INSTRUCTION 

014C C0F6 
014D 4820 
014E 3013 

014F C0F3 

0150 4820 

0151 3014 

0152 4804 

0153 301S 



0154 C04A 

0155 4810 

0156 3016 



* TEST OF ACC ABILITY TO HOLD 

• ALL ZEROS 

* 

»••»*»****»»»»*»***•»»»»»*•»»»»»»••»»»**»»*»« 
*•*»***•»*»»*»*»»»»*»»»•**»*»»»»**»»•»»•»*••»*»»»*»» 
•LA- OPER- 

•BEL ATION FT OPERANDS £ REMARKS ID£SEO« AT RIGHT 

***••*•**•••••*••*•••**••*•••**•••*•**««•••••••••••• 



0157 4808 

0158 7001 

0159 3017 

015A 4804 
015B 7001 
015C 3018 

0150 1801 
015E 4804 
015F 7001 

0160 3019 

0161 1801 

0162 4804 

0163 7001 

0164 301A 

0165 1801 

0166 4804 

0167 7001 

0168 301B 

0169 1801 
016A 4804 
016B 7001 
016C 0000 

0160 1801 
016E 4804 
016F 7001 

0170 3010 

0171 1801 

0172 4804 

0173 7001 

0174 301E 

0175 1801 

0176 4804 



A100 LD N100 LD /OOOO 

BSC Z SK IF ZERO 

OC /3013 ERR 10 £ ERR WAIT 

* LD ACC TO FAILED 
LD N100 ACCHO, RELOAD TO 
BSC - Z SK IF ZERO 

OC /3014 ERR ID £ ERR WAIT 

* LD ACC TO FAILED 
BSC E SK IF EVEN 

DC /3015 ERR ID £ ERR WAIT 

* BSC ON EVEN FAILED 



* 

•••*••*•• 
A140 LD 
BSC 
DC 



•*•«**••*•* 
N140 



/3016 



BSC 
MDX 
OC 

* 

G140 BSC 
MDX 
DC 

• 

G141 SRA 
BSC 
MOX 

OC 

• 

G142 ~ SRA 
BSC 

MDX 
OC 

• 

G143 SRA 
BSC 
MDX 
OC 

* 

G144 SRA 
BSC 

MDX 
DC 

• 

G145 SRA 
BSC 

MOX 
OC 

• 

G146 SRA 
BSC 

MDX 
DC 

• 

G147 SRA 
BSC 



£ 

G140 
/3017 

E 

G141 

/3018 

1 
E 

6142 
/3019 

1 
E 

G143 
/301A 

1 
E 

G144 
/301B 

1 
E 
G145 

/301C 

1 

E 

G146 

/301D 

1 
E 
G147 

/301E 

1 
E 



CONTAIN ALL ONES 

»*•*•••••*••«•*•••••••*•• 

ACC. tO. RELOAD TO ONES 
SK IF MINUS 
ERR ID £ ERR WAIT 
LOAD ACC. FAILED OR 
•BSC ON NEG. FAILEO 



ERR ID £ ERR WAIT 
BSC ON £ SKPD- 
•SHOULD NOT HAVE 

ERR 10 £ ERR WAIT 
BSC ON E SKPD- 
• SHOULD NOT HAVE 



ERR ID £ ERR WAIT 
ACC NOT • 7FFF 



ERR ID C ERR WAIT 
ACC NOT * 3FFF 



ERR 10 £ ERR WAIT 
ACC NOT • 1FFF 



ERR ID £ ERR WAIT 
ACC NOT • OFFF 



ERR ID C ERR WAIT 
ACC NOT * 07FF 



ERR ID £ ERR WAIT 
ACC NOT • 03FF 



3A122460 

3A122470 

3A122480 

3A122490 

3A122500 

3A122510 

3A 122520 

3A122530 

3A122540 

3A122550 

3A122560 

3A122570 

3A122580 

3A122590 

3 Al 22600 

3A122610 

3A1 22620 

3A122630 

3A122640 

3A122650 

3A1 22660 

3A122670 

3A122680 

3A122690 

3A122700 

3A122710 

3A122720 

3A122730 

3A122740 

3A122750 

3A122760 

3A122770 

3A122780 

3A122790 

3A122800 

3A122810 

3A122820 

3A122630 

3A122840 

3A 122850 

3A122860 

3A122870 

3A122880 

3A122890 

3A122900 

3A122910 

3A 122920 

3A122930 

3A1 22940 

3A 122950 

3A122960 

3A 122970 

3A122980 

3A122990 

3A1 23000 

3A123010 

3A123020 

3A123030 

3A123040 

3A123050 

3A1 23060 

3A 12 3070 

3A123080 

3A 12 3090 

3A123100 

3A123110 

3A123120 

3A123130 



uATe 


02JAN6e> 


01MAY66 


15N0V66 


15FEB68 


26AUG68 


FC MO. 


415490 


415490C 


419643 


420403 


420403A 



PROG ID 
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OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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03A1-1 
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DATE 
EC NO. 



0177 





7001 




MDX 


G14B 






3A123140 




0178 





301F 


• 


DC 


/301F 


ERR 
ACC 


ID C ERR WAIT 
NOT # 01FF 


3A123150 
3A123160 




0179 





1801 


G148 


SRA 


1 






3A123170 




017A 





4804 




BSC 


E 






3A123180 




017B 





7001 




MDX 


G149 






3A123190 




01 7C 





3020 


• 


DC 


/3020 


ERR 
ACC 


ID £ ERR WAIT 
NOT f OOFF 


3A123200 
3A123210 




0170 





1801 


G149 


SRA 


1 






3A123220 




017E 





4804 




BSC 


E 






3A 12 32 30 




017F 





7001 




MDX 


G14A 






3A123240 




0180 





3021 


• 


DC 


/3021 


ERR 
ACC 


ID £ ERR WAIT 
NOT * 007F 


3A123250 
3A123260 




0181 





1801 


G14A 


SRA 


1 






3A123270 




0182 





4804 




BSC 


E 






3A123280 




0183 





7001 




MDX 


G14B 






3A123290 




0184 





3022 


• 


OC 


/3022 


ERR 
ACC 


10 £ ERR WAIT 
NOT * 003F 


3A123300 
3A123310 




0185 





1801 


G14B 


SRA 


1 






3A123320 




0186 





4804 




BSC 


E 






3A123330 




0187 





7001 




MDX 


G14C 






3A123340 




0188 





3023 


• 


DC 


/3023 


ERR 
ACC 


10 C ERR WAIT 
NOT « 001F 


3A123350 
3A1 23360 




0189 





1801 


G14C 


SRA 


1 






3A123370 




018A 





4804 




BSC 


E 






3A123380 




018B 





7001 




MDX 


G140 






3A123390 




018C 





3024 


• 


DC 


/3024 


ERR 
ACC 


ID C ERR WAIT 
NOT # OOOF 


3A123400 
3A123410 




0180 





1801 


G140 


SRA 


1 






3A123420 




018E 





4804 




BSC 


E 






3A 123430 




018F 





7001 




MDX 


G14E 






3A123440 




0190 





3025 


• 


DC 


/3025 


ERR 
ACC 


ID £ ERR WAIT 
NOTy # 0007 


3A 12 3450 
3A123460 




0191 





1801 


G14E 


SRA 


1 




3A 12 3470 




0192 





4804 




BSC 


E 




/ 


3A123480 




0193 





7001 




MDX 


GUP 






3A 12 3490 




0194 





3026 


• 


DC 


/3026 


ERR 
ACC 


10 £ ERR WAIT 
NOT • 0003 


3A123500 
3A123510 




0195 





1801 


G14F 


SRA 


1 






3A123520 




0196 





4804 




BSC 


E 






3A 1235 30 




0197 





7001 




MOX 


G150 






3A123540 




0198 





3027 


• 


DC 


/3027 


ERR 
ACC 


ID C ERR WAIT 
NOT # 0001 


3A123550 
3A123560 




0199 





1801 


G150 


SRA 


1 






3A123570 




019A 





4804 




BSC 


E 






3A123580 




019B 





3028 


• 


DC 


/3028 


ERR 
ACC 


10 £ ERR WAIT 
NOT 0000 


3A 12 3590 
3A123600 




019C 





4820 




BSC 


Z 






3A123610 




0190 





3029 


• 


DC 


/3029 


ERR 
ACC 


ID £ ERR WAIT 
NOT t 0000 


3A123620 
3A 12 3630 




019E 





7001 




MDX 


A180 


EXIT TO NEXT ROUTINE 


3A1 23640 




019F 





FFFF 


N140 

• 


OC 


/FFFF 






3A123650 
3A123660 










* 




TEST LOINS OF GHf.% OH OSES 


3A 12 3670 










• 










3A123680 










••a******************************************* 


3A123690 




••********»*»*»*»»»»*»»»**»*»»»»**»»»*»*»»»»»»»*»**»»»»»»*»♦»*»**»»»♦»» 


3A123700 




CORE 




DATA OR 


*LA- 


OPER- 








3A123710 




AOOR 




INSTRUCTION 


»BEL 


ATION 


FT OPERANDS £ REMARKS IDCSEO* AT RIGHT 


3A123720 




*»***•*»»•****»»*»»***»»*»***»»*»»»*■»»****»*»»*»»»»»»***»»»**»»»*»»»»»» 


3A 12 3730 




01A0 





C049 


A180 


LO 


N180 


LO 


/FFFF 


3A123740 




01A1 





482C 




BSC 


CEZ 


SK ON CEVEN OR ZERO 


3A123750 




01A2 





4810 




BSC 


- 


SK i 


IF MINUS 


3A123760 




01A3 





30 2 A 


• 


DC 


/302A 


ERR 
ACC 


10 £ ERR WAIT 
NOT * FFFF 


3A123770 
3A1 23780 




01A4 





C045 




LD 


N180 


LO 


/FFFF 


3A 123790 




01A5 





482C 




BSC 


CEZ 






3A123800 




01A6 





4810 




BSC 


— 






3A123810 




02JAN66 01MAY66 


15N0V66 


15FEB68 


26AUG68 




PROG 10 


03A1-1 


415*90 M5490C 


419643 


420403 


420403A 




PAGE 
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01A7 


302 B 


• 
* 


DC 


/302B 


01A8 


1801 


SRA 


1 


01A9 


4804 


BSC 


E 


01AA 


7001 




MOX 


Giei 


01AB 


302C 


« 
G181 


DC 


/302C 


01 AC 


1801 


SRA 


1 


01AD 


4804 




BSC 


E 


01AE 


7001 




MDX 


G182 


01AF 


3020 


• 
G182 


OC 


/3020 


01B0 


1801 


SRA 


1 


0161 


4804 




BSC 


E 


01B2 


7001 




MOX 


G183 


01B3 


302 E 


• 
G183 


DC 


/302E 


01B4 


1801 


SRA 


1 


01B5 


4804 




BSC 


E 


01B6 


7001 




MDX 


G184 


01B7 


302F 


f 


OC 


/302F 


01B8 


1801 


G184 


SRA 


1 


01B9 


4804 




BSC 


E 


01BA 


7001 




MDX 


G185 


01BB 


3030 


* 
G185 


DC 


/3030 


01BC 


1801 


SRA 


1 


01B0 


4804 




BSC 


E 


01BE 


7001 




MDX 


G186 


01BF 


3031 


£ 


DC 


/3031 


01C0 


1801 


G186 


SRA 


1 


01C1 


4804 




BSC 


E 


01C2 


7001 




MOX 


G187 


01C3 


3032 


f 


DC 


/3032 


01C4 


1801 


G187 


SRA 


1 


01C5 


4804 




BSC 


E 


01C6 


7001 




MOX 


G18H 


01C7 


3033 


• 
G188 


OC 


/3033 


01C8 


1801 


SRA 


1 


01C9 


4804 




BSC 


E 


01CA 


7001 




MDX 


G189 


01CB 


3034 





DC 


/3034 


01CC 


1801 


G189 


SRA 


1 


OICD 


4804 




BSC 


E 


01CE 


7001 




MDX 


G18A 


01CF 


3035 





DC 


/3035 


O1D0 


1801 


G18A 


SRA 


1 


0101 


4804 




BSC 


E 


0102 


7001 




MDX 


G18B 


01D3 


3036 




DC 


/3036 


01D4 


1801 


G18B 


SRA 


1 


0105 


4804 




BSC 


E 


0106 


7001 




MOX 


61 8C 


0107 


3037 


* 


DC 


/3037 


01D8 


1801 


G18C 


SRA 


1 


0109 


4804 




BSC 


E 


01 OA 


7001 




MDX 


618D 


01DB 


3038 




DC 


/3038 



ERR ID £ ERR WAIT 
ACC NOT # FFFF 
SHIFT RIGHT ONE 
TEST ABILITY OF ACC TO SHIFT 



ERR ID £ ERR WAIT 
ACC NOT • 7FFF 



ERR 10 £ ERR WAIT 
ACC NOT • 3FFF 



ERR ID £ ERR WAIT 
ACC NOT • 1FFF 



ERR 10 £ ERR WAIT 
ACC NOT OFFF 



ERR ID £ ERR WAIT 
ACC NOT i 07FF 



ERR ID £ ERR WAIT 
ACC NOT * 03FF 



ERR 10 £ ERR WAIT 
ACC NOT < 01FF 



ERR 10 £ ERR WAIT 
ACC NOT # OOFF 



ERR ID £ ERR WAIT 
ACC NOT • 007F 



ERR ID £ ERR WAIT 
ACC NOT • 003F 



ERR ID £ ERR WAIT 
ACC NOT • 00 IF 



ERR ID £ ERR WAIT 
ACC NOT t OOOF 



ERR ID £ ERR WAIT 
ACC NOT # 0007 



3A123820 
3A123830 
3A123840 
3A123850 
3A123B60 
3A123870 
3A123880 
3A123890 
3A123900 
3A123910 
3A123920 
3A 123930 
3A123940 
3A123950 
3A123960 
3A123970 
3A123980 
3A 12 3990 
3A124000 
3A124010 
3A124020 
3A124030 
3A124040 
3A124050 
3A124060 
3A124070 
3A124080 
3A124090 
3A124100 
3A124110 
3A124120 
3A124130 
3A124140 
3A124150 
3A124160 
3A124170 
3A124180 
3A124190 
3A124200 
3A124210 
3A124220 
3A 1242 30 
3A124240 
3A 124250 
3A124260 
3A124270 
3A124280 
3A124290 
3A124300 
3A124310 
3A124320 
3A 124330 
3A124340 
3A 124350 
3A124360 
3A124370 
3A124380 
3A124390 
3A124400 
3A 1244 10 
3 Al 24420 
3A 124430 
3 A 124440 
3A124450 
3A124460 
3A124470 
3 A 124480 
3 A 12 4490 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 

420403 



26AUG68 
420403A 



PROG ID 
PAGE 



03A1-1 
ISA 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 19 





01DC 1801 


6180 


SRA 


1 




3A1 24500 






01 DO 4804 




BSC 


E 




3A124510 






010E 7001 




MDX 


G18E 




3A1 24520 






01DF 3039 


* 


DC 


/3039 


ERR 10 £ ERR WAIT 
ACC NOT # 0003 


SA124530 
3A124540 






01E0 1801 


G18E 


SRA 


1 




3A 124550 






01E1 4804 




BSC 


E 




3A1 24560 






01E2 7001 




MDX 


G18F 


, 


3A 124570 






01E3 303A 


• 


DC 


/303A 


ERR 10 £ ERR HA IT 
ACC NOT • 0001 


3A1 24580 
3A124590 






01E4 1801 


G18F 


SRA 


1 




3A1 24600 






01E5 4804 




BSC 


E 




3A124610 






01E6 303B 


* 


DC 


/303B 


ERR ID t ERR NAIT 
ACC NOT • 0000 


3A124620 
3A 1246 30 






01E7 4820 




BSC 


2 




3A1 24640 






01EB 303C 


• 


DC 


/303C 


ERR ID t ERR WAIT 
ACC NOT * 0000 


3A 124650 
3A124660 






01E9 7001 




MDX 


A1C0 


EXIT TO NEXT ROUTINE 


3A124670 






01EA FFFF 


N180 

• 


oc 


/FFFF 




3A124680 
3A 124690 








• 




TEST ABILITY TO LOAO ZEROS 


3A124700 








• 




ON 


TOP OF ZEROS AND ONES ON 


3A124710 








• 




TOP OF ZEROS 


3A124720 








• 








3A124730 








«**•»•••*••••••*******•********•••*•**••**•*•• 


3A1 24740 






»»»»»»»»»»»»»»**»»»»»••*••*»»»»»»»»**»«*«••**»»*«»*»»»****•*•********** 


3A 124750 






CORE DATA OR 


»LA- 


OPER- 






3A1 24760 






ADDR INSTRUCTION 


*8EL 


ATION 


FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 


3A 124770 






»»»»»»»»»»»»»»»•»»•»*»*»»*»**»*»»»»»»*»»«»»»»**»»**»**»»*»**»»***»***»* 


3A124780 






01EB C007 


A1C0 


LD 


N1C0 


LD /OOOO 


3A 124790 






01EC 4820 




BSC 


Z 


SK ON ZERO 


3A124800 






01ED 3030 


• 


DC 


/303D 


ERR ID £ ERR WAIT 
ACC NOT • ZERO 


3A124810 
3A124820 






01EE COOS 




LD 


N1C1 


LD /FFFF 


3A124830 






01EF 4B2C 




BSC 


IEZ 




3A124B40 






01F0 4810 




BSC 


- 


SK ON MINUS 


3 A 1248 50 






01F1 303E 


• 


OC 


/303E 


ERR ID C ERR WAIT 
ACC NOT • FFFF 


3A124860 
3A124870 






01F2 7002 




HOX 


A1D0 


EXIT TO NEXT ROUTINE 


3A124880 






01F3 0000 


N1C0 


DC 


/OOOO 




3A 124890 






01F4 FFFF 


N1C1 

• 


DC 


/FFFF 




3A 124900 
3A124910 








• 




TEST EUR OPERATION 


3A124920 








• 








3A 1249 30 








»»*»**»•»»»****»»*****»**»•*•*»*•***•»*»****** 


3A124940 






01F5 C01C 


A1D0 


LD 


NIDI 


LO /OOOO 


3A 124950 






01F6 4820 




BSC 


Z 


SK ON ZERO 


3A124960 






01F7 303F 


• 


OC 


/303F 


ERR ID t ERR NAIT 
ACC NOT # ZERO 


3A 124970 
3A1 24980 






01F8 F019 




EOR 


NIDI 


ZERO MITH /OOOO 


3A 124990 






01F9 4820 




BSC 


Z 


SK ON ZERO 


3A125000 






01FA 3040 


• 


DC 


/3040 


ERR ID £ ERR WAIT 
EOR OF AND FAILEO 


3A 125010 
3A125020 






01FB C01S 




LD 


N1D0 


LD /FFFF 


3A 12 50 30 






01FC F014 




EOR 


N1D0 


ZERO MITH /FFFF 


3 Al 25040 






01F0 4820 




BSC 


Z 




3A 125050 






01FE 3041 


* 


OC 


/3041 


ERR ID t ERR HA IT 
EOR OF 1 AND 1 FAILEO 


3A125060 
3A 125070 






01FF F011 




EOR 


N1D0 




3A 125080 






0200 482C 




BSC 


CEZ 




3A 12 5090 






0201 4810 




BSC 


- 




3A1 25100 






0202 3042 


• 


DC 


/3042 


ERR 10 t ERR HAIT 
EOR OF 1 AND FAILEO 


3A125110 
3A125120 






0203 1801 




SRA 


1 




3A125130 






0204 FOOE 




EOR 


N102 




3A125140 






0205 4820 




BSC 


Z 




3A125150 






0206 3043 


• 


DC 


/3043 


ERR ID C ERR HAIT 
EOR OF 1 AND FAILED 


3A125160 
3A125170 




OATfc 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 


420403A 
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0207 





C009 


0208 





F009 


0209 





482C 


020A 





4810 


020B 





3044 


020C 





1801 


020D 





F005 


020E 





4820 


020F 





3045 


0210 





7003 


0211 





FFFF 


0212 





OOOO 


0213 





7FFF 



LO 

EOR 

BSC 

BSC 

OC 

SRA 
EOR 
BSC 
DC 



N100 
NIDI 
CEZ 

/304* 

1 

K1D2 
Z 
/3045 



ERR 
EOR 



ID 
OF 



ERR 10 
EOR OF 



ERR HAIT 
AND 1 FAILEO 



ERR 
AND 



HOX 
OC 
DC 
DC 



A1E0 
/FFFF 
/OOOO 
/7FFF 



EXIT TO NEXT 



HAIT 

1 FAILED 

ROUTINE 



N1D0 
N101 
N102 

• 
* 



TEST OF ABILITY TO SET 
F BIT TO ONE 



0214 
0216 
0217 

0218 
021A 
021B 
02 1C 

0210 
021E 
021F 



C400 02 IF 

4820 

3046 

C400 02 IE 
F003 
4820 
3047 

7002 
021 E 
OOOO 



A1E0 



N1E0 
N1E1 

* 



LD 

BSC 

DC 

LO 

EOR 

BSC 

DC 

MDX 

OC 

DC 



N1E1 

Z 

/3046 

N1E0 
N1E0 
Z 
/3047 

A1F0 
N1E0 
/OOOO 



LO /OOOO 

SK ON ZERO 

ERR 10 £ ERR HAIT 

WRONG LOCATION LOADED 

LO CXNIEOo 

SK ON ZERO 
ERR ID t ERR HAIT 
HRONG LOCATION LOAOE 
EXIT TO NEXT ROUTINE 



TEST OF INDIRECT ADDRESSING 



•••••*•••*••«**••••*••**•••«••••••••••••••*«*• 



0220 





C480 


022C 


0222 





4820 




0223 





3048 




0224 





C480 


022 B 


0226 





F004 




0227 





4820 




0228 





3049 




0229 





7003 




022A 





OOOO 




022B 





0228 




022C 





022 A 





A1F0 



LO 

BSC 

DC 

LD 
EOR 
BSC 
DC 



N1F2 

Z 

/3048 

N1F1 
N1F1 
Z 
/3049 



MDX 
OC 
OC 
DC 



A200 
/OOOO 
N1F1 
N1F0 



LO /OOOO 

SK ON ZERO 

ERR 10 C ERR HAIT 

HRONG LOCATION LOAOEO 

LO CSNIFIO 

ZERO HITH CSNlFla 

ERR ID £ ERR HAIT 
HRONG LOCATION LOADED 
EXIT TO NEXT ROUTINE 



TEST OF BSC LONG FORM AND 
INDIRECT OPERATION 



N1F0 
N1F1 
N1F2 

* 

* 

»****»»**»*»»»»♦*»**»»*»»»»»*»»»»»»»«*»*»**»»»»»»»********»*»»*»»«»»»»» 

CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL AT ION FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 

10 £ ERR HAIT 
DID NOT BRANCH 
ID £ ERR HAIT 
SKPD-SHOULO BRNCH 

IF NOT EVEN 
ID £ ERR HAIT 
E DID NOT BRANCH 
ID £ ERR HAIT 





0220 4CO0 0231 


A200 


BSC 


L 


G200 






022F 304A 


* 


DC 




/304A 


ERR 
BSC 




0230 3048 


* 


OC 




/304B 


ERR 
BSC 




0231 C03A 


G200 


LD 




N200 






0232 4C04 0236 




BSC 


L 


G201.E 


BR 




0234 304C 


• 


DC 




/304C 


ERR 
BSC 




0235 3040 




DC 




/304D 


ERR 


DATE 


02JAN'>6 01NAY66 


15N0V66 


15FEB68 


26AUG68 


EC NO. 


415490 415490C 


419643 


420403 


420403A 



3A125180 

3A125190 

3A125200 

3A125210 

3A125220 

3A125230 

3A125240 

3A125250 

3A125260 

3A 125270 

3A125280 

3A 12 5290 

3A125300 

3A125310 

3A125320 

3A125330 

3A125340 

3A125350 

3A125360 

3A125370 

3A125380 

3A125390 

3A125400 

3A125410 

3A125420 

3A 12 5430 

3A1 25440 

3A125450 

3A1 25460 

3A 12 5470 

3A125480 

3A125490 

3A125500 

3A125510 

3A125520 

3A125530 

3A125540 

3A125S50 

3A1 25560 

3A125S70 

3A125580 

3A 125590 

3A125600 

3A125610 

3A125620 

3A 125630 

3A125640 

3A 12 5650 

3A125660 

3A125670 

3A125680 

3A125690 

3A125700 

3A125710 

3A125720 

3A 125730 

3A125740 

3A 125750 

3A125760 

3A125770 

3A125780 

3A 12 5 790 

3A125800 

3A125810 

3A125820 

3A 125830 

3A125840 

3A125850 
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0236 
0238 






4C08 
304 E 


023A 


• 
G201 

• 

• 
G202 

• 

* 
G203 

V154 


BSC 

DC 


L 


G202.& 
/304E 


0239 





304 F 




DC 




/304F 


02 3 A 
02 3C 






4C20 
3050 


023E 


BSC 

DC 


L 


G203.Z 
/3050 


0230 





3051 




DC 




/3051 


C23E 
0240 
0241 







4C10 
7001 
3052 


0241 


BSC 
MDX 
DC 


L 


V154,- 

G204 

/3052 


0242 
0243 
0245 







2003 
4C02 
3053 


0247 


G204 


LOS 
BSC 
DC 


L 


3 

G205.C 

/3053 


0246 





3054 




* 


DC 




/3054 


0247 
0249 






4C01 
3055 


024B 


G205 




BSC 
DC 


L 


G208tO 
/3055 


024A 





3056 







DC 




/3056 


024B 
0240 
024E 







4C01 
7001 
3057 


024E 


G208 
V168 


BSC 
MDX 
DC 


L 


V168.0 

G206 

/3057 


024F 
0250 
0252 
0253 








2000 
4C02 
7001 
3058 


0253 


G206 
VI 70 


LOS 
BSC 
MOX 
DC 


L 




V170.C 

G207 

/3058 


0254 
0256 
0257 







4C01 
7001 
3059 


0257 


G207 
V174 


BSC 
MDX 
DC 


L 


V174.0 

G209 

/3059 


0258 
0259 
02 58 







CO 14 
4C18 
305A 


0250 


62 09 

• 
9 


LD 

BSC 
DC 


L 


N201 

G20A,£- 

/305A 


025C 





305B 




DC 




/305B 


025D 
025E 
0260 
0261 








COOE 
4C18 
7001 
305C 


0261 


G20A 

V1B0 

* 

G20D 

V184 

• 

G20B 

• 


LD 
BSC 
MDX 
DC 


L 


N200 
¥180. t- 
G20D 
/305C 


0262 
0263 
0265 
0266 








COOB 
4C18 
7001 
3050 


0266 


LO 
BSC 
MOX 
DC 


L 


N202 
V184.1- 
G20B 
/305D 


0267 
0269 






4C80 
305E 


026F 


BSC 

DC 


I 


N203 
/305E 


026A 





305F 




DC 




/305F 


026B 
02 6C 
026D 
02 6E 
026F 









7004 
FFFF 
0000 
0001 
026B 




G20C 
N200 
N201 
N202 
N203 
• 


MDX 

DC 

DC 

DC 
DC 




A240 

/FFFF 

/OOOO 

/0001 

G20C 



BSC SKPD-SHOULO BRNCH 
BR IF NOT PLUS 
ERR 10 £ ERR WAIT 
BSC - DID NOT BRANCH 
ERR ID £ ERR WAIT 
BSC SKPD-SHOULD BRNCH 

ERR ID C ERR MAIT 
BSC Z DIO NOT SKIP 
ERR 10 t ERR WAIT 
BSC SKPD-SHOULD BRNCH 
BR IF NOT MINUS 

ERR ID C ERR WAIT 
BSC SKPD-SHOULO NOT 
SET C AND OF ON 
BR IF CARRY IS ON 
ERR ID t ERR WAIT 
BSC C OID NOT BRANCH 
ERR 10 C ERR MAIT 
BSC SKPD-SHOULO BRNCH 
BR IF OF ON 
ERR ID £ ERR WAIT 
BSC DID NOT BRANCH 
ERR ID £ ERR MAIT 
BSC SKPD-SHOULD BRNCH 
BR IF OF ON 

ERR ID £ ERR MAIT 
BSC BRNCD-SHOULD NOT 

BR IF CARRY IS OFF 

ERR ID C ERR MAIT 
BSC BRNCD-SHOULD NOT 
BR IF OF ON 

ERR ID t ERR MAIT 
BSC BRNCD-SHOULD NOT 

BR ON ZERO 
ERR ID £ ERR MAIT 
BSC £- DID NOT BRANCH 
ERR ID £ ERR MAIT 
BSC SKPD-SHOULD BRNCH 



ERR ID £ ERR MAIT 
BSC BRNCHED-SHOULDNT 



ERR ID £ ERR MAIT 
BSC BRNCHED-SHOULDNT 

ERR ID £ ERR MAIT 
INDIRECT BSC FAILED 
ERR 10 £ ERR MAIT 
INDIRECT BSC FAILED 
EXIT TO NEXT ROUTINE 



TEST SHORT AND LONG FORM 
BS1 



3A125860 
3A 125870 
3A125880 
3A125890 
3A125900 
3A 125910 
3A125920 
3A125930 
3A125940 
3A125950 
3A125960 
3A 125970 
3A125980 
3A125990 
3A1 26000 
3A126010 
3A126020 
3A 126030 
3A1 26040 
3A126050 
3A126060 
3A 126070 
3A126080 
3A126090 
3A126100 
3A126110 
3A126120 
3A126130 
3A126140 
3A126150 
3A126160 
3A126170 
3A126180 
3A126190 
3A1 26200 
3A126210 
3A126220 
3A126230 
3A1 26240 
3A 126250 
3A126260 
3A126270 
3A126280 
3A 126290 
3A126300 
3A126310 
3A126320 
3A126330 
3A126340 
3A126350 
3A126360 
3A126370 
3A126380 
3A126390 
3A1 26400 
3A 126410 
3A126420 
3A126430 
3A1 26440 
3A126450 
3A1 26460 
3A126470 
3A126480 
3A 12 6490 
3A126500 
3A126510 
3A126520 
3A 126530 



CORE DATA OR »LA- OPER- 

ADOR INSTRUCTION *BEL ATION FT OPERAND 



0270 





4002 


A240 


BSi 


N241 


0271 





0271 


N240 


DC 


K240 


0272 





3060 


* 
N241 


DC 


/3060 


0273 





0000 


DC 


/OOOO 


0274 





COFE 




LO 


N241 


0275 





FOFB 




EOR 


N240 


0276 





4820 




BSC 


Z 


0277 





3061 


£ 


DC 


/3061 


0278 





4408 027D 




BSI 


L N243,t 


02 7 A 





3062 


VI AC 


DC 


/3062 


027B 





3063 


* 


DC 


/3063 


027C 





027A 


N242 


DC 


V1AC 


027D 





0000 


N243 


DC 


/OOOO 


027E 





COFE 




LD 


N243 


027F 





FOFC 




EOR 


N242 


0280 





4820 




BSC 


Z 


0281 





3064 




DC 


/3064 



S C REMARKS IOCSEO* AT RIGHT 

STORE AODRESS OF I REG 

STORE ADDRESS OF I REG 

ERR ID C ERR MAIT 

BSI SKPO-SHOULD BRNCH 

RETURN ADDR FOR MAIN PROG 

LD RETURN ADDR 

ZERO IN RETURN ADDR 

cRR ID £ ERR MAIT 
BSI NOT STORED I REG 
STORE ADDR OF I REG 
ERR ID £ ERR MAIT 
BSI £ DIO NOT BRANCH 
ERR ID £ ERR MAIT 
BSI SKPD-SHOULO BNCH 

RETURN ADDR FOR MAIN PROG 



ERR ID £ ERR MAIT 
BSI NOT STORE I REG 

TEST OF INSTR REOUIREO FOR 
ERROR CONTROL 



0282 C048 A900 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

028A 

028B 

028C 

0280 

028E 

028F 

0291 

0292 

0294 

0295 

0296 

0297 

0298 

029A 

029C 

0290 0836 G902 

029E 

029 F 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS £ REMARKS IDtSEQ* AT RIGHT 

02A0 4C18 02AC BSC L G900.£- BRANCH ON ZERO 

02A2 F033 EOR F923 

02A3 3066 DC /3066 ERROR 10 £ ERR MAIT 

» SENSE/PROG SMS NOT 



C04B 
0048 
C048 
C046 
F044 
4820 
3065 

C047 

4820 

704C 

C042 

0043 

1810 

D400 0001 

61FF 

C400 0001 

4820 

700F 

C03B 

DO 31 

D400 0F67 

D400 0FD3 

003A 

0836 

E037 

F036 



LD 


F911 


STO 


F912 


LD 


F913 


LO 


F912 


EOR 


F911 


BSC 


Z 


DC 


/3065 


LD 


F918 


BSC 


Z 


MDX 


A280 


LD 


F916 


STO 


F918 


SRA 


16 


STO 


L /0001 


LDX 


1 -1 


LD 


L /0001 


BSC 


z 


MDX 


G901 


lD 


F919 


STO 


F903 


STO 


L NBC 2 


STO 


L F004 


STO 


F007 


XIO 


F922 


AND 


F923 


EOR 


F923 



LO A NUMBER 



ERR ID £ ERR MAIT 

STORE FAILED 

CK FIRST PASS SM S/00G2O 

IS SM ON 

YES GO TO NEXT ROUTINE 

GET 0002 

STORE /00O2 

CLEAR ACC 

ZERO MITH /0001 

LO XR 1 MITH -1 

ZERO IN 1800 -1 FOR 1130 

ZERO FOR 1800 

1130 CPU 

1800 P-C LD /0240 

STO /0240 THIS IS AREA, 

* FUNCTION AND MODIFIER 

* FOR READING DATA ENTRY 

* SMITCHES IN 1B00 
SENSE SENSE/PROG SMS 
IGNORE CE SMS. S/FFOOO 
ZERO MITH /FFOO 



3A126540 
3A126550 
3A1 26560 
3A126570 
3A126580 
3A126590 
3A1 26600 
3A126610 
3A126620 
3A126630 
3A126640 
3A 126650 
3A126660 
3A126670 
3A126680 
3A126690 
3A126700 
3A126710 
3A1 26720 
3A126730 
3A126740 
3A126750 
3A1 26760 
3A126770 
3A126780 
3A 126790 
3A1 26800 
3*126810 
3A1 26820 
3A126830 
3A126840 
3A126850 
3A1 26860 
3A126870 
3A126880 
3A126890 
3A1 26900 
3A 126910 
3A1 26920 
3A 126930 
3A1 26940 
3A 126950 
3A 126960 
3A126970 
3A126980 
3A126990 
3A127000 
3A127010 
3A1 27020 
3A127030 
3A1 27040 
3A127050 
3A127060 
3A 12 7070 
3A127080 
3A 12 7090 
3A127100 
3A127110 
3A127120 
3A127130 
3A127140 
3A127150 
3A127160 
3A127170 
3A127180 
3A 12 7 190 
3A1272O0 
3A127210 



DATE 

EC NO. 



02JAN66 
415490 



01MAY66 
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15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 
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DATE 
EC NO. 











« 








• EQUAL TO /FFOO 


3A127220 




02A4 





70F8 






MDX 




G902 


REPEAT TEST 


3A 12 7230 




02A5 





C02D 




G901 


LD 




F920 


1130 CPU LD /3A00 


3A127240 




02A6 





D022 






STO 




F903 


STO /3A00 THIS IS 


3A127250 




02A7 





0400 


0F67 




STO 


L 


N8C2 


* AREA. FUNCTION C 


3A127260 




02A9 





D400 


0FD3 




STO 


L 


F004 


* MODIFIER FOR READING 


3A127270 




02AB 





002 B 






STO 




F007 


* OATA ENTRY SWITCHES 


3A127280 




02AC 





081B 




G900 


XIO 




F902 


TEST OATA ENTRY SMS 


3A127290 




02 AO 





C022 






LD 




F917 


» FOR /FFFF 


3A127300 




02AE 





F01F 






EOR 




F915 




3A127310 




02AF 





4C18 


02B4 




BSC 


L 


XOOlrt- 


BRANCH ON ZERO 


3A127320 




02B1 





F01C 






EOR 




F915 




3A127330 




02B2 





3067 




• 
• 


DC 




/3067 


ERR 10 £ ERR WAIT 
DATA ENTRY SMS NOT 
EQUAL TO /FFFF 


3A127340 
3A127350 
3A 127 360 




02B3 





70F8 






MDX 




G900 




3A127370 




02B4 





3001 




X001 

* 
• 


DC 




/3001 


SET SENSE/PROG AND 
DATA ENTRY SMS TO 
ZEROS AND PUSH START 


3A1273B0 
3A 127390 
3A127400 




02B5 





C013 






LD 




F903 


CK FOR 1130 S3A00-1130D 


3A 127410 




0266 





F01C 






EOR 




F920 




3A127420 




02B7 





4C18 


02BF 




BSC 


L 


G904.C- 


XFER IF 1130 


3A127430 




02B9 





OBI A 




G903 


XIO 




F922 


TEST SENSE/PROG SMS 


3A127440 




02BA 





E01B 






AND 




F923 


IGNORE CE SMS. X/FFOOo 


3A127450 




02BB 





4C18 


02BF 




BSC 


L 


G904,£- 


BRANCH IF OK 


3 Al 27460 




02BD 





3068 




* 
• 


DC 




/3068 


ERR ID C ERR MAIT 
SENSE/PROG SMS NOT 
• EQUAL TO /OOOO 


3A127470 
3A1 27480 
3A127490 




02BE 





70FA 






MOX 




G903 


REPEAT TEST 


3A127S00 




02BF 





0808 




G904 


XIO 




F902 


TEST DATA ENTRY SMS 


3A 127510 




02C0 





COOF 






LO 




F917 


* FOR /OOOO 


3A127520 




02C1 





4C18 


02C5 




BSC 


L 


X003,£- 


BRANCH ON ZERO 


3A 127530 




02C3 





3069 




• 
» 


OC 




/3069 


ERR ID C ERR MAIT 
DATA ENTRY SM1TCHES 
• NOT EQ /OOOO 


3A127540 
3A 127550 
3A127560 




02C4 





70FA 






MDX 




G904 




3A 127570 




02C5 





3002 




X003 

* 
• 


DC 




/3002 


SET BIT SNITCHES AS 
» DESIRED FOR RUN 
* AND PUSH START 


3A127580 
3A127590 
3A127600 




02C6 





7011 






MOX 




A280 


EXIT TO NEXT ROUTINE 


3A 127610 




02C8 




0000 






BSS 


E 






3A 127620 




02C8 





0200 




F902 


DC 




F917 




3A127630 




02C9 





0240 




F903 


DC 




/0240 


EQUAL /3A00 IN 1130 


3A127640 




02CA 





02CA 




F904 


DC 




F904 




3A 127650 




02CB 





02CC 




F911 


DC 




F912 




3A127660 




02CC 





0000 




F912 


DC 




/OOOO 




3A 127670 




02C0 





0000 




F913 


DC 




/OOOO 




3A127680 




02CE 





FFFF 




F915 


OC 




/FFFF 




3A 127690 




02CF 





0002 




F916 


DC 




/0002 




3A127700 




0200 





0000 




F917 


DC 




/OOOO 




3A127710 




0201 





0000 




F918 


DC 




/OOOO 




3A127720 




0202 





0240 




F919 


DC 




/0240 


1800 READ BIT SMS CONSTANT 


3A 127730 




0203 





3A00 




F920 


OC 




/3A00 


1130 READ BIT SMS CONSTANT 


3A127740 




0204 





0000 




F922 


DC 







SENSE SENSE/PROG CON 


3A127750 




02DS 





0760 






OC 




/0760 




3A127760 




0206 





FFOO 




F923 


OC 




/FFOO 




3A 127770 




02D7 





0240 




F007 


DC 




/0240 


EQUAL /3A00 IN 1130 


3A127780 












»»»*•»*»»*•»»•»»»»»»»»*»»»»»*«*»»»*****»»»»»» 


3A 12 7790 












• 










3 Al 27800 












• 






BEGINING OF SECTION OF 


3A 127810 












• 






PROGRAM USING COMMON ERROR 


3A127820 












• 






CONTROL ROUTINE 


3A127830 












• 










3A127840 












»»»»»»»•»•»»»»*»*«*»»»»**»»»»»»»»»»*»*»****** 


3A127850 












»*»*»»*»»»»»***»»»*«»»»»»»»»«»**»»»»«*»»»**»* 


3A127860 












* 










3A127870 












* 






TEST 


OF SRA OPERATION 


3A127880 












• 










3A 12 7890 




02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG6B 


PROG 10 


03A1-1 


415490 415490C 


419643 
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CORE DATA OR «LA- OPER- 

AODR INSTRUCTION *BEL AT10N FT OPERANDS £ REMARKS ID£SEQ# AT RIGHT 



0208 


CO 39 




02D9 


1810 




02DA 


4C18 


02DF 


02DC 


4400 


OF 69 


02DE 


30 6A 




02DF 


4400 


0FC4 


02E1 


70 F6 




02E2 


C030 




02E3 


180F 




02E4 


F02F 




02E5 


4C18 


02EA 


02E7 


4400 


OF 69 


02E9 


306B 




02EA 


4400 


0FC4 


02EC 


70F5 




02ED 


C027 




02EE 


1801 




02EF 


F026 




02F0 


4C18 


02F5 


02F2 


4400 


OF 69 


02F4 


30 6C 




02F5 


4400 


0FC4 


02F7 


70F5 




02F8 


C01D 




02F9 


1801 




02FA 


F01C 




02FB 


4C18 


0300 


02F0 


4400 


0F69 


02FF 


3060 




0300 


4400 


0FC4 


0302 


70F5 




0303 


COOF 




0304 


1801 




0305 


1802 




0306 


1804 




0307 


1808 




0308 


FOOB 




0309 


4C18 


030E 


030B 


4400 


OF 69 


0300 


306E 




030E 


4400 


0FC4 


0310 


70F2 




0311 


7006 




0312 


FFFF 




0313 


8000 




0314 


0001 




0315 


AAAA 




0316 


5555 




0317 


2 AAA 





A2B0 



G280 



LO 

SRA 

BSC 

BSI 

DC 

BSI 

MDX 



N280 

16 

G280,£- 

FOOO 

/306A 

F005 

A2B0 



BRANCH ON ZERO 

SRA 16 FA1LE0 

ERR ID 

CK LOCK ON ERROR 

LOOP 



**»**»*»»*»»»»»»»»*»»*»*»»**»»*»»»*» 



•»*»»»»*»» 



A281 LD N281 LD /8000 

SRA 15 NOM AH/0001 

EOR N282 ZERO HITH /0001 

BSC L G281,£- BRANCH ON ZERO 

BSI L FOOO SRA 15 FAILED 

DC /306B ERP ID 

G281 BSI L F005 CK LOCK ON ERROR 

KDX A281 LOOP 



A282 LD N283 LO /AAAA 

SR* 1 NOM At/5555 

EOR N28-. ZERO WITH /5555 

BSC L G282 t £- BRANCH ON ZERO 

BSI L FOOO SRA 1 FAILED 

DC /306C ERR ID 

G282 BSI L F005 CK LOCK ON ERROR 

MDX A282 LOOP 

A283 LD N284 LD Z5555 

SRA 1 NOM A*/2AAA 

EOR N285 ZERO MITH /2AAA 

BSC L G283,£- BRANCH ON ZERO 

BSI L FOOO SRA 1 FAILED 

DC /306D ERR ID 

G283 BSI L F005 CK LOCK ON ERROR 

MDX A283 LOOP 



A284 



G2B4 



LD 

SRA 

SRA 

SRA 

SRA 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

DC 

DC 

OC 

OC 

DC 



N281 

1 

2 

4 

8 

N282 

G284,£- 

FOOO 

/306E 

F005 

A284 

A2C0 

/FFFF 

/8000 

/0001 

/AAAA 

Z5555 

/2AAA 



LO /8000 

NOM A* /4000 

At /1000 

Ai/0100 

A * /0001 

ZERO MITH /0001 

BRANCH ON ZERO 

COMB SRA FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



N280 

N281 

N282 

N283 

N284 

N285 

• 

* 

CORE DATA OR *LA- OPfcR- 

AODR INSTRUCTION *BEL AT10N FT OPERANDS £ REMAkKS ID£SEQ# AT RIGHT 

0318 C029 A2C0 LD N2C0 LO /OOOO 

0319 E028 AND N2C0 ANO /OOOO 



TEST OF AND FUNCTION 



3A12 7900 

3A127910 

3A127920 

3A 12 7930 

3A127940 

3A127950 

3A127960 

3A127970 

3A127980 

3A 12 7990 

3A12eO0O 

3A128010 

3A128020 

3A128030 

3A12804O 

3A12805O 

3A1 28060 

3A128070 

3A128080 

3A128090 

3A128100 

3A128110 

3A128120 

3A128130 

3A128140 

3A128150 

3A128160 

3A128170 

3A128180 

3A 12 8 190 

3A128200 

3A128210 

3A128220 

3A128230 

3A128240 

3A 12 8250 

3A1 28260 

3A128270 

3A12B280 

3 A 12 8290 

3A128300 

3A 128310 

3A128320 

3A 128330 

3A128340 

3A128350 

3A128360 

3A12B370 

3A128380 

3A 12 8390 

3A 128400 

3A 128410 

3A128420 

3A128430 

3A128440 

3A128450 

3A12B460 

3A 128470 

3A128480 

3A 12 8490 

3A128500 

3A12B510 

3A128520 

3A128530 

3A128540 

3A128550 

3A128560 

3A128570 



DATE 
EC NO. 
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031A 





4C18 


031F 




BSC 


L 


G2C0.C- 


BRANCH ON ZERO 


3A1 28580 






031C 





4400 


OF 69 




BSI 


L 


FOOO 


AND OF AND FAILED 


3A 128590 






031E 





306 F 






DC 




/306F 


ERR ID 


3A128600 






031F 





4400 


0FC4 


G2C0 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128610 






0321 





70F6 






MDX 




A2C0 


LOOP 


3A128620 














********************************************* 


3A 12 86 30 






0322 





COIF 




A2C4 


LD 




N2C0 


LD /OOOO 


3A128640 






0323 





E01F 






AND 




N2C2 


LD /FFFF 


3A128650 






0324 





4C18 


0329 




BSC 


L 


G2C4, fc- 


BRANCH ON ZERO 


3A128660 






0326 





4400 


0F69 




BSI 


L 


FOOO 


AND OF AND 1 FAILED 


3A128670 






0328 





3070 






OC 




/3070 


ERR ID 


3A128680 






0329 





4400 


0FC4 


G2C4 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128690 






0328 





70F6 






MDX 




A2C4 


LOOP 


3A128700 














********************************************* 


3A128710 






032C 





C016 




A2C8 


LD 




N2C2 


LD /FFFF 


3A128720 






032D 





E014 






AND 




N2C0 


AND /OOOO 


3A128730 






032E 





4C18 


0333 




BSC 


L 


G2C8.C- 


BRANCH ON ZERO 


3A128740 






0330 





4400 


0F69 




BSI 


L 


FOOO 


AND OF 1 AND FAILED 


3A128750 






0332 





3071 






DC 




/3071 


ERR ID 


3A12B760 






0333 





4400 


0FC4 


G2C8 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A128770 






0335 





70F6 






MDX 




A2C8 


LOOP 


3A1 28780 














••••WW*************************************** 


3A128790 






0336 





COOC 




A2CC 


LD 




N2C2 


LD /FFFF 


3A128800 






0337 





EOOB 






AND 




N2C2 


ANO /FFFF 


3A128810 






0338 





FOOA 






EOR 




N2C2 


ZERO WITH /FFFF 


3A128820 






0339 





4C18 


033E 




BSC 


L 


G2CC,£- 


BRANCH ON ZERO 


3A128830 






033B 





4400 


OF 69 




BSI 


L 


FOOO 


AND OF 1 AND 1 FAILED 


3A1 28840 






033D 





3072 






DC 




/3072 


ERR 10 


3A128850 






033E 





4400 


0FC4 


G2CC 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 28860 






0340 





70F5 






MDX 




A2CC 


LOOP 


3A128870 






0341 





7002 






MDX 




A300 


EXIT TO NEXT ROUTINE 


3A1 28880 






0342 





0000 




N2C0 


DC 




/OOOO 




3A128890 






0343 





FFFF 




N2C2 

• 
* 
• 


DC 




/FFFF 

TEST 


OF OR FUNCTION 


3A1 28900 
3A 12 8910 
3A128920 
3A 12 89 30 














********************************************** 


3A128940 






*********************************************************************** 


3A128950 






CORE 




DAT* 


i OR 


*LA- 


OPER- 








3A1 28960 






ADDR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS ( 


. REMARKS IDCSEOt AT RIGHT 


3A 12 8970 






****************************** 


***•••••***•*****•****«************•***** 


3A128980 






0344 





C020 




A300 


LD 




N300 


LD /OOOO 


3A128990 






0345 





E81F 






OR 




N300 


OR /OOOO 


3A129000 






0346 





4C18 


034B 




BSC 


L 


G300,t- 


BRANCH ON ZERO 


3A129010 






0348 





4400 


OF 69 




BSI 


L 


FOOO 


OR OF ANO FAILED 


3A1 29020 






034A 





3073 






DC 




/3073 


ERR ID 


3A 129030 






0348 





4400 


0FC4 


G300 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 29040 






034D 





70 F6 






MDX 




A300 


LOOP 


3A129050 














***** 


******* 


******************************* 


3A129060 






034E 





C016 




A302 


LD 




N300 


LD /OOOO 


3A 129070 






034F 





E816 






OR 




N302 


OR /FFFF 


3A129080 






0350 





F015 






EOR 




N302 


ZERO WITH /FFFF 


3A 129090 






0351 





4C18 


0356 




BSC 


L 


G302.C- 


BRANCH ON ZERO 


3A129100 






0353 





4400 


0F69 




BSI 


L 


FOOO 


OR OF AND 1 FAILED 


3A 12911Q, 






0355 





3074 






DC 




/3074 


ERR ID 


3A129120 






0356 





4400 


0FC4 


G302 


BSI 


L 


F005 


CHECK LOOP SNITCH 


3A 129130 






0358 





70F5 






MDX 




A302 


LOOP 


3A129140 














********************************************* 


3A 129150 






0359 





COOC 




A 304 


LO 




N302 


LD /FFFF 


3A129160 






035A 





E80B 






OR 




N302 


OR /FFFF 


3A 129 170 






0358 





FOOA 






EOR 




N302 


EOR IN /FFFF 


3A129180 






035C 





4C18 


0361 




BSC 


L 


G304.C- 


BRANCH ON ZERO 


3A 129 190 






035E 





4400 


0F69 




BSI 


L 


FOOO 


OR OF 1 AND 1 FAILED 


3A129200 






0360 





3075 






DC 




/3075 


ERR ID 


3A129210 






0361 





4400 


0FC4 


G304 


BSI 


L 


F005 


CK LOCK ON ERRCR 


3A129220 






0363 





70F5 






MDX 




A304 


LOOP 


3A129230 






0364 





7002 






MDX 




A340 


EXIT TO NEXT ROUTINE 


3A129240 






0365 





0000 




N300 


DC 




/OOOO 




3A129250 
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TEST OF RTE 16 OPERATION 



0366 FFFF N302 DC /FFFF 

* 

• 

••••••a*************************************** 

****************************************************** 

•LA- OPER- 
ON *BEL ATION FT OPERANDS C REMARKS 1D£SEQ# AT RIGHT 
»******»*****************•*•»*********»****»****«»»«*» 



***************** 
CORE DATA OR 
ADDR INSTRUCT1 

•*•***••••••••••• 

0367 C016 

0368 1800 

0369 CO 15 
036A 18D0 
036B 4C18 0370 
036D 4400 OF 69 
036F 3076 

0370 4400 0F98 

0372 70F4 

0373 18D0 

0374 FOOA 

0375 4C18 037A 
0377 4400 0F69 
0379 3077 
037A 4400 0FC4 
037C 70EA 
0370 7002 
037E OOOO 
037F FFFF 



A340 



0380 
0381 
0382 
0363 
0385 
0387 
0388 
038A 
038B 
03BC 
038D 
038F 
0391 
0392 
0394 

0395 
0396 
0397 
0399 
039B 
039C 
039E 
039F 
O3A0 
03A2 
03A4 
03A5 
03A7 

03A8 
03A9 
03AA 
03AC 
03AE 
03AF 



C055 

18A0 

F054 

4C18 0388 

4400 OF 69 

3078 

4400 0F98 

70F5 

18D0 

F04A 

4C18 0392 

4400 OF 69 

3079 

4400 0FC4 

70EB 

C042 
18A0 

4C1B 039C 
4400 0F69 
307 A 

4400 0FC4 
70F6 
18D0 

4C18 03A5 
4400 0F69 
307 B 

4400 0FC4 
70E0 

C030 
1B8F 

4C18 03AF 
4400 0F69 
307C 
4400 0F98 



G340 



G342 



LD 

RTE 

LD 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

MDX 

DC 

DC 



N340 

16 

N341 

16 

G340tt- 

FOOO 

/3076 

FOOE 

A340 

16 

N341 

6342, £- 

FOOO 

/3077 

F005 

A340 

A380 

/OOOO 

/FFFF 



LD /OOOO 

PLACE /OOOO IN Q REG 

LD /FFFF 

NOW Af/OOOO Of/FFFF 

BRANCH ON ZERO 

ALL THRU FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW Af/FFFF Oi/0000 

ZERO WITH /FFFF 

BRANCH ON ZERO 

ALL 1 THRU FAILED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



N340 
N341 

• 
* 

*******«»***»»*»»**»**«»»»»»»»»*»»»,*»«»»»»,» 



TEST OF SRT OPERATION 



A380 



G380 



G382 



LD 

SRT 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N380 LD /8000 

32 NOW Af/FFFF Qf/FFFF 

N381 EOR IN /FFFF 

G380tt- BRANCH ON ZERO 

FOOO SRT 32-A REG FAILED 

/3078 ERR ID 

FOOE CK LOCK ON ERROR 

A380 LOOP 

16 NOW At /FFFF Of/0000 

N381 EOR IN /FFFF 

G382tt- BRANCH ON ZERO 

FOOO SRT 32-0 REG FAILED 

/3079 ERR ID 

F005 CK LOCK ON ERROR 

A380 LOOP 



•A******************************************* 



A384 



G384 



G386 



LD 

SRT 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 



N382 LD /4000 

32 NOW Af/OOOO Oi/0000 

G384,t- BRANCH ON ZERO 

FOOO SRT 32-A REG FAILEO 

/307A ERR ID 

F005 CK LOCK ON ERROR 

A384 LOOP 

16 NOW AtVOOOO Oi/0000 

G386,£- BRANCH ON ZERO 

FOOO SRT 32-0 REG FAILED 

/307B ERR 10 

F005 CK LOCK ON ERROR 

A384 LOOP 



•*••*••*•••*•**••*••••*••*•*•*••*•**•*•**•*** 

A388 LD N383 LD /5555 

SRT 15 NOW Af/OOOO Qf/OOOO 

BSC L G388,£- BRANCH ON ZERO 

BSI L FOOO SRT 15-A REG FAILEO 

DC /307C ERR ID 

G388 BSI L FOOE CK LOCK ON ERROR 



3A129260 

3A129270 

3A129280 

3A129290 

3A 129 300 

3A129310 

3A129320 

3A129330 

3A129340 

3A129350 

3 A 129 360 

3A129370 

3A129380 

3A129390 

3A129400 

3A129410 

3A129420 

3A 129430 

3A129440 

3A129450 

3A 129460 

3A129470 

3A129480 

3A 129490 

3A129500 

3A 129510 

3A129520 

3A129530 

3A129540 

3A129550 

3 A 129 560 

3A129570 

3A129580 

3A 129590 

3A129600 

3A129610 

3A129620 

3A129630 

3A129640 

3A129650 

3A129660 

3A 129670 

3A129680 

3A 129690 

3A129700 

3A129710 

3A129720 

3A129730 

3A129740 

3A 129750 

3 A 129 760 

3A 129770 

3A129780 

3A129790 

3A129800 

3A129810 

3A129820 

3A129B30 

3A129840 

3A 129850 

3A129860 

3A129870 

3A129880 

3A 129890 

3A129900 

3A129910 

3A129920 

3A 1299 30 
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A388 
16 

N384 
G38A.E- 
FOOO 
/307D 
F005 
A388 
»*«»»»***»*♦»*****»*»**»»*»**»**»**********»* 

CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS 6 REMARKS ID&SEQ* AT RIGHT 



03B1 70F6 






MDX 




0?B2 1800 






RTE 




03B3 F026 






EOR 




0384 4C18 


03B9 




BSC 


L 


03B6 4400 


OF 69 




BSI 


L 


03B8 3070 






DC 




03B9 4400 


OFC> 


G38A 


BS! 


L 


03BB 70EC 






MDX 





LOOP 

NOW A*/AAAA 0#'OOOC 

ZERO WITH /AAAA 

BRANCH ON ZERO 

SRT 15-0 REG FAILED 

ERR ID 

CK LOC" ON ERROR 

LOOP 



03BC 
03BD 
03BE 
03BF 
03C0 
03C1 
03C2 
03C3 
03C5 
03C7 
03C8 
03CA 
03CB 
03CC 
03CD 
03CF 
03D1 
0302 
03D4 
C3D5 
03D6 
03D7 
03D8 
03D9 
03DA 
03DB 



C01C 

1880 

1882 

1884 

1886 

1888 

188A 

4C1B 03C8 

4400 0F69 

307 E 

4400 Of 98 

70F1 

18D0 

FOOE 

4C18 0302 

4400 0F69 

307F 

4400 0FC4 

70E7 

7006 

8000 

FFFF 

4000 

5555 

AAAA 

0001 



A38C 



G38C 



G38E 



LD 

SRT 

SRT 

SRT 

SRT 

SRT 

SRT 

BSC 

BSI 

DC 

BSI 

MOX 

RTE 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 



N383 



2 

4 

6 

8 

10 

G38CC- 

FOOO 

/307E 

FOOE 

A38C 

16 

N385 

G38E,£- 

FOOO 

/307F 

F005 

A38C 

A3C0 

/8000 

/FFFF 

/4000 

/5555 

/AAAA 

/0001 



LD /5555 

NOW AH/5555 OH/0000 

NOW AH/1555 OH/4000 
/0155 /5400 
/0005 /5550 
/OOOO /0555 
/OOOO /0001 

BRANCH ON ZERO 

SERIES SRT FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

NOW AH/0001 OH/0000 

ZERO WITH /0001 

BRANCH ON ZERO 

SERIES SRT FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 

EXIT TO NEXT ROUTINE 



N380 
N381 
N382 
N383 
N384 
N3BS 
• 



TEST OF RTE OPERATION 



03DC 
03DD 
03DE 
03DF 
03E0 
03E1 
03E3 
03E5 
03E6 
03E8 
03E9 
03EA 
03EB 
03ED 
03EF 
C3F0 
03F2 



C02F 
18D0 
C02C 
18CF 
F02E 

4C18 03E6 
4400 OF 69 
3080 

4400 0F98 
70F3 
18D0 
F02 5 

4C18 03F0 
4400 OF 69 
3081 

4400 0FC4 
70E9 



A3C0 



G3C0 



G3C2 



LD 

RTE 

LD 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N3C1 LD /AAAA 

16 NOW At/0000 QH/AAAA 

N3C0 NOW AH/5555 OH/AAAA 

15 NOW AH/5554 QH/AAAB 
N3C4 ZERO WITH /5554 
G3C0.C- BRANCH ON ZERO 

FOOO RTE 15-0 TO A FAILED 

/30B0 ERR ID 

FOOE CK LOCK ON ERROR 

A3C0 LOOP 

16 NOW AH /AAAB 00/5554 
N3C5 ZERO WITH /AAAB 
G3C2.C- BRANCH ON ZERO 

FOOO RTE 15-A TO FAILED 

/30B1 ERR ID 

F005 CK LOCK ON ERROR 
LOOP 



A3C0 

CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IDtSEQH AT RIGHT 

03F3 C01A A3C4 LO N3C3 LD /8000 

03F4 18D0 RTE 16 NOW AH/XXXX OH/8000 

03F5 C017 LD N3C2 LD /OOOO 



3A 1299 40 

^A129950 

3A129960 

3A 129970 

3A129980 

3A129990 

3A1 30000 

3A130010 

3A1 30020 

3A130030 

3A1 30040 

3A 130050 

3A1 30060 

3A 130070 

3A130080 

3A 130090 

3A130100 

3A130110 

3A130120 

3A130130 

3A1 30140 

3A130150 

3A130160 

3A130170 

3 Al 30180 

3A130190 

3A1 30200 

3A130210 

3 Al 30220 

3A130230 

3A130240 

3A130250 

3A1 30260 

3A130270 

3A1 30280 

3A130290 

3A1 30300 

3A130310 

3A130320 

3A130330 

3A130340 

3A130350 

3A1 30360 

3A130370 

3A1 30380 

3A 130 390 

3A1 30400 

3A130410 

3A1 30420 

3A130430 

3 A 130440 

3A130450 

3A1 30460 

3A 130470 

3A1 30480 

3A 130490 

3A1 30500 

3A130510 

3A130520 

3A130530 

3A130540 

3A130550 

3A1 30560 

3A130570 

3 Al 305.80 

3A 130590 

3A1 30600 

3A130610 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 

419643 



15FEB68 
420403 



26AUG68 
420403A 



PROG 10 
PAGE 
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03F6 18C0 






RTE 







NOW AD/0000 o*/eooo 


3A130620 






03F7 18DF 






RTE 




31 




3A130630 






03F8 F018 






EOR 




N3C6 


ZERO WITH /0001 


3A1 30640 






03F9 4C18 i 


D3FE 




BSC 


L 


G3C4.6- 


BRANCH ON ZERO 


3A130650 






03FB 4400 ' 


OF 69 




BSI 


L 


FCDO 


SERIES RTE FAILED 


3A1 30660 






03FD 3082 






DC 




/3082 


ERR ID 


3A130670 






03FE 4400 


0F98 


G3C4 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 30680 






0400 70 F2 






MDX 




A3C4 


LOOP 


3A 130690 






0401 18D0 






RTE 




16 


NOW A-/0000 0-/0000 


3A1 30700 






0402 4C18 


0407 




BSC 


L 


G3C6tt- 


BRANCH ON ZERO 


3A130710 






0404 4400 


OF 69 




BSI 


L 


FOOO 


SERIES RTE FAILED 


3A130720 






0406 3083 






DC 




/3083 


ERR ID 


3A130730 






0407 4400 


0FC4 


G3C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 30740 






0409 70E9 






MDX 




A3C4 


LOOP 


3A130750 






040A 7007 






MDX 




A400 


EXIT TO NEXT ROUTINE 


3A1 30760 






040B 5555 




N3C0 


DC 




/5555 




3A130770 






040C AAAA 




N3C1 


DC 




/AAAA 




3A1 30780 






040D OOOO 




N3C2 


DC 




/OOOO 




3A130790 






040E 8000 




N3C3 


DC 




/BOOO 




3A130800 






040F 5554 




N3C4 


DC 




/5554 




3A130810 






0410 AAAB 




N3C5 


OC 




/AAAB 




3A1 30820 






0411 0001 




N3C6 

• 
• 
» 


DC 




/0001 

TEST 


OF SLA OPERATION 


3A130830 
3A1 30840 
3A 130850 
3A1 30860 










*»***«»**»*»*»»***»»»»»»»»*»»»*»»*»»»*«»»»*»» 


3A130B70 






0412 C400 


04B6 


A400 


LO 


L 


N400 


LD /FFFF 


3A1 30880 






0414 18D0 






RTE 




16 


NOW AH/XXXX QH/FFFF 


3A130890 






0415 C400 


04B6 




LD 


L 


N400 


LD /FFFF 


3A1 30900 






0417 1010 






SLA 




16 


NOW A* /OOOO Ot/FFFF 


3A 1309 10 






0418 4C02 


041D 




BSC 


L 


G404.C 


BR ON CARRY 


3A1 30920 






041A 4400 


0F69 




BSI 


L 


FOOO 


SLA li-CARRV FAILED 


3A130930 






041C 3085 






DC 




/3085 


ERR ID 


3A1 30940 






04 ID 4400 


0F98 


G404 


BSI 


L 


FOOE 


CK LOCK ON ERROR 
LOOP 


3A 130950 






041F 70F2 






MDX 




A400 


3A1 30960 






0420 4C18 


0425 




BSC 


L 


G400,£- 


BRANCH ON ZERO 


3A 130970 






0422 4400 


OF 69 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


3A1 30980 






0424 3084 






OC 




/3084 


ERR ID 


3A 130990 






0425 4400 


0F98 


G400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 31000 






0427 70EA 






MDX 




A400 


LOOP 


3A131010 






0428 1800 






RTE 




16 


NOW AH/FFFF QH/OOOO 


3A1 31020 






0429 F400 


04B6 




EOR 


L 


N400 


ZERO WITH /FFFF 


3A 13 1030 






042B 4C18 


0430 




BSC 


L 


G406.C- 


BRANCH ON ZERO 


3A1 31040 






042D 4400 


OF 69 




BSI 


L 


FOOO 


SLA 16-AFFECTED REG 


3A 13 1050 






042 F 3086 






DC 




/3086 


ERR ID 


3A1 31060 






0430 4400 


0FC4 


G406 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 13 1070 






0432 70DF 






MDX 




A400 


LOOP 


3A1 31080 










**»**«**«*»»*»*****»**»****»»*»»»»»»*»**»***» 


3A131090 






**»«»»»**»*»***»»**»*»»**»»»*»»»»»*»»*»»»»**»»«»»»»»»»**»»»*»**»*»»*»*« 


' 3A131100 






CORE DATA OR 


*LA- 


OPER- 








3A131110 






ADDR INSTRUCTION 


1 *BEL 


ATION 


1 FT 


OPERANDS 


C REMARKS ID£SEQH AT RIGHT 3A131120 






••*»**••••«**•*•••* 


*»»»»*»*»»»»»»*»*»»«»»»»»*»»»»»»•»*»*»»»»»»«**»»*»•» 3A131130 






0433 C400 


04BB 


A40B 


LD 


L 


N405 


LD /OOOO 


3A131140 






0435 18D0 






RTE 




16 


NOW AH/XXXX Qi/OOOO 


3A131150 






0436 C4G0 


04BC 




LO 


L 


N406 


/FFFE /OOOO 


3A131160 






0438 1010 






SLA 




16 


/OOOO /OOOO 


3A131170 






0439 4C02 


043C 




BSC 


L 


G407.C 


BR ON CARRY 


3A131180 






043B 7003 






MDX 




G40C 




3A131190 






043C 4400 


OF 69 


G407 


BSI 


L 


FOOO 


SLA 16- CARRY FAILED 


3A1 31200 






043E 3088 






DC 




/3088 


ERR ID 


3A131210 






043F 4400 


0F98 


G40C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 31220 






0441 70F1 






MDX 




A408 


LOOP 


3A131230 






0442 4C18 


0447 




BSC 


L 


G408«£- 


BRANCH ON ZERO 


3A131240 






0444 4400 


0F69 




BSI 


L 


FOOO 


SLA 16-A REG FAILED 


3A131250 






0446 3087 






OC 




/3087 


ERR 10 


3A131260 






0447 4400 


0F98 


G408 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131270 






0449 70E9 






MDX 




A408 


LOOP 


3A131280 






044A 1800 






RTE 




16 


NOW AH/0000 Qi/OOOO 


3A131290 




DATE 
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044B 





4C18 


0450 




BSC 


L 


G40E.C- 


BRANCH ON ZERO 


3A131300 






0440 





4400 


0F69 




BSI 


L 


FOOO 


SLA 16-AFFECTED 2 REG 


3A131310 






044F 





3089 






DC 




/3089 


ERR 10 


3A131320 






0450 





4400 


0FC4 


G40E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131330 






0452 





70E0 






MDX 




A408 


LOOP 


3A131340 














»»»»»»*»•»»•»»»»»•*»**»»»*»»»«»»»»»»»»»»»•»** 


3A131350 






0453 





C067 




6400 


LO 




N405 


LD /OOUO 


3A131360 






0454 





1800 






RTE 




16 


NOW A0/XXXX 00/0000 


3A131370 






0455 





C063 






LO 




N403 


LD /AAAA 


3A131380 






0456 





1001 






SLA 




1 


NOW A«/5554 OH/0000 


3A131390 






0457 





4C02 


045C 




BSC 


L 


H402.C 


BRANCH ON CARRY 


3A1 31400 






0459 





4400 


OF 69 




BSI 


L 


FOOO 


SLA 1-CARRY FAILED 


3A131410 






045B 





308 B 






DC 




/308B 


ERR 10 


3A131420 






045C 





4400 


0F98 


H402 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131430 






045E 





70F4 






MDX 




B400 


LOOP' 


3A1 31440 






045F 





F05A 






EOR 




N404 


ZERO WITH /5554 


3A 13 1450 






0460 





4C18 


0465 




BSC 


L 


H400.1- 


BRANCH ON ZERO 


3A1 31460 






0462 





4400 


OF 69 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


3A131470 






0464 





308A 






DC 




/308A 


ERR 10 


3A1 31480 






0465 





4400 


0F98 


H400 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131490 






0467 





70EB 






MDX 




8400 


LOOP 


3A131500 






0468 





1800 






RTE 




16 


NON A0/OOOO 00/5554 


3A131510 






0469 





4C18 


046E 




BSC 


L 


H404,t- 


BRANCH ON ZERO 


3A131520 






046B 





4400 


0F69 




BSI 


L 


FOOO 


SRA 1-AFFECTEO REG 


3A131530 






0460 





308C 






DC 




/308C 


ERR 10 


3A131540 






046E 





4400 


0FC4 


H404 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131550 






0470 





70E2 






MDX 




B400 


LOOP 


3A131560 














*»»»*»»»»»»«»*»••••*»»»»•»»»•**»»*»»*»»»»»»»» 


3A131570 






0471 





C049 




B406 


LD 




N405 


LD /OOOO 


3A1 31580 






0472 





1800 






RTE 




16 


NOW A0/XXXX 00/0000 


3A131590 






0473 





C044 






LD 




N402 


LD /5555 


3A131600 






0474 





1001 






SLA 




1 • 


NOW A0/AAAA 00/0000 


3A131610 






0475 





4C02 


0478 




BSC 


L 


H407.C 


BR ON CARRY 


3A131620 






0477 





7003 






MDX 




H405 




3A131630 






0478 





4400 


OF 69 


H407 


BSI 


L 


FOOO 


SLA 1-CARRY FAILED 


3A1 31640 






047A 





308E 






DC 




/308E 


ERR 10 


3A131650 






047B 





4400 


0F98 


H405 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 31660 






0470 





70F3 






MDX 




B406 


LOOP 


3A131670 






047E 





F03A 






EOR 




N403 


ZERO WITH /AAAA 


3A1 31680 






047F 





4C18 


0484 




BSC 


L 


H406.C- 


BRANCH ON ZERO 


3A131690 






0481 





4400 


0F69 




BSI 


L 


FOOO 


SLA 1-A REG FAILED 


3A1 31700 






0483 





3080 






DC 




/308D 


ERR ID 


3A131710 






0484 





4400 


0F98 


H406 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A131720 






0486 





70EA 






MDX 




B406 


LOOP 


3A131730 






0487 





1800 






RTE 




16 


NOW A0/OOOO 00/ AAAA 


3A1 31740 






0488 





4C18 


0480 




BSC 


L 


H408tt- 


BRANCH ON ZERO 


3A131750 






048A 





4400 


0F69 




BSI 


L 


FOOO 


SLA 1-AFFECTEO REG 


3A1 31760 






048C 





30 8F 






DC 




/308F 


ERR ID 


3A131770 






0480 





4400 


0FC4 


H408 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A131780 






048F 





70E1 






MDX 




B406 


LOOP 


3A131790 














•»»»**»»•»»»»•»»»»•»**»»»»»»»*•»*»#»»**»»»*»» 


3A1 31800 






•a********************************************************************* 


3A131810 






CORE 




DATA OR 


*LA- 


OPER- 








3 Al 31820 






AODR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS 


C REMARKS IO&SEO0 AT RIGHT 


3A131830 






**•*••••••••**•••*•••**•*•*••**••«**•••*••••*•••*****•*******«•••****** 


3A 131 840 






0490 





C02A 




B40A 


LO 




N405 


LD /OOOO 


3A131850 






0491 





1800 






RTE 




16 


NOW A0/XXXX 00/0000 


3A131860 






0492 





CO 24 






LD 




N401 


LO /0001 


3A131870 






0493 





6101 






LDX 


1 


1 




3A1 31880 






0494 





6204 






LDX 


2 


4 




3A131890 






0495 





6303 






LDX 


3 


3 




3A1 31900 






0496 





1000 






SLA 







NOW A0/OOO1 00/0000 


3A131910 






0497 





1100 






SLA 


1 





/0002 /OOOO 


3 Al 31920 






0498 





1002 






SLA 




2 


/0008 /OOOO 


3A131930 






0499 





1200 






SLA 


2 





/0080 /OOOO 


3A131940 






049A 





1006 






SLA 




6 


/2000 /OOOO 


3A 13 1950 






049B 





1300 






SLA 


3 





/OOOO /OOOO 


3A1 31960 






049C 





4C02 


04 A 1 




BSC 


L 


H40D.C 


BRANCH ON CARRY 


3A131970 




DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 
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049E 





4400 


0F69 




BSI 


L 


FOOO 


COMB SLA-CARRV FAILED 


3A131980 






04A0 





3091 






DC 




/3091 


ERR ID 


3A 13 1990 






04A1 





4400 


0F98 


H40D 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32000 






04A3 





70 EC 






MDX 




B40A 


LOOP 


3A132010 






04A4 





4C18 


04A9 




BSC 


L 


H40A.C- 


BRANCH ON 2ERQ 


3A1 32020 






04A6 





44 CO 


OF 69 




BSI 


L 


FOOO 


COMB SLA-A REG FAILED 


3A132030 






04A8 





3090 






DC 




/3090 


ERR ID 


3A1 32040 






04A9 





4400 


OF98 


H40A 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A13205C 






04AB 





70E4 






MOX 




B40A 


LOOP 


3A1 32060 






04AC 





1800 






RTE 




1* 




3A132070 






04AD 





4C16 


04B2 




BSC 


L 


H40E,t- 


BRANCH ON ZERO 


3A1 32080 






04AF 





4400 


OF 69 




BSI 


L 


FOOO 


COMB SLA-AFFECTEO 


3A132090 






04B1 





3092 






DC 




/3092 


ERR ID 


3A132100 






04B2 





4400 


0FC4 


H40E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A132110 






04B4 





700 B 






MDX 




B40A 


LOOP 


3A132120 






04BS 





7007 






MOX 




A440 


EXIT TO NEXT ROUTINE 


3A132130 






04B6 





FFFF 




N400 


DC 




/FFFF 




3A132140 






04B7 





0001 




N401 


DC 




/0001 




3A132150 






04B8 





5555 




N402 


DC 




/5555 




3A132160 






04B9 





AAAA 




N403 


DC 




/AAAA 




3A132170 






04BA 





5554 




N404 


DC 




/5554 




3A132180 






04BB 





OOOO 




N405 


DC 




/OOOO 




3A132190 






04BC 





FFFE 




N406 

* 
• 
* 


DC 




/FFFE 

TEST 


OF SLT OPERATION 


3A1 32200 
3A132210 
3A132220 
3A132230 














»»»»»»»»»»»»»»»*»»»»**»»»»»»«»»»»»»»»»»»»»»*» 


3A1 32240 






04BD 





C07E 




A440 


LD 




N440 


LO /0001 


3A132250 






04BE 





1800 






RTE 




16 


NOW A0/XXXX 0*00/0001 


3A1 32260 






048F 





CO 70 






LD 




N441 


LD /OOOO 


3A 132270 






04C0 





10A0 






SLT 




32 


/OOOO 00/0000 


3A132280 






04C1 





4C02 


04C6 




BSC 


L 


G442.C 


BRANCH ON CARRY 


3A132290 






04C3 





4400 


0F69 




BSI 


L 


FOOO 


SLT 32-CARRY FAILED 


3A132300 






04C5 





3094 






DC 




/3094 


ERR. ID 


3A132310 






04C6 





4400 


0F98 


G442 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A132320 






04C8 





70F4 






MOX 




A440 


LOOP 


3A132330 






04C9 





4C18 


04CE 




BSC 


L 


G440« t- 


BRANCH ON ZERO 


3A1 32340 






04CB 





4400 


OF 69 




BSI 


L 


FOOO 


SLT 32-A REG FAILED 


3A132350 






04CD 





3093 






DC 




/3093 


ERK ID 


3A132360 






04CE 





4400 


0F98 


G440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 132370 






0400 





70EC 






MDX 




A440 


LOOP 


3A132380 






0401 





1800 






RTE 




16 


NOW A0/OOOO 00/0000 


3A 132 390 






0402 





4C18 


04D7 




BSC 


L 


G443fC- 


BRANCH ON ZERO 


3A1 32400 






04D4 





4400 


OF 69 




BSI 


L 


FOOO 


SLT 32-0 REG FAILED 


3A132410 






04D6 





3095 






DC 




/3095 


ERR ID 


3 Al 32420 






04D7 





4400 


0FC4 


G443 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A132430 






0409 





70E3 






MDX 




A440 


LOOP 


3 Al 32440 














*«**»*********#**»»*»*»»*»*»»**»«»»«»»»»*»*** 


3A132450 






•••*•**•*•••«**••*••*•*****••*••••••*•***•*•••••****•***••••**•••••**•* 


3A1 32460 






CORE 




OATA OR 


•LA- 


OPER- 








3A132470 






ADDR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS 


£ REMARKS IDCSEO0 AT RIGHT 


3A1 32480 






•••**•«•••••••••••*••••*•••*•*••••*•••*•***••••*•«*•••*•*•**«••**••••*• 


3A132490 






040A 





C063 




A444 


LD 




N442 


LD /FFFF 


3A1 32500 






040B 





1800 






RTE 




16 


NON A0/XXXX 00/FFFF 


3A132510 






04DC 





C060 






LD 




N441 


LD /OOOO 


3A1 32520 






040D 





1090 






SLT 




16 


NOW A0/FFFF 00/0000 


3A 132530 






04DE 





4C02 


04E1 




BSC 


L 


G446tC 


BR ON CARRY 


3 A 132 540 






04E0 





7003 






MDX 




G447 




3A132550 






04E1 





4400 


0F69 


G446 


BSI 


L 


FOOO 


SLT 16-CARRV FAILED 


3A1 32560 






04E3 





3097 






DC 




/3097 


ERR 10 


3A132570 






04E4 





4400 


0F98 


G447 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32580 






04E6 





70F3 






MDX 




A444 


LOOP 


3A 132590 






04E7 





F056 






EOR 




N442 


ZERO WITH /FFFF 


3A1 32600 






04E8 





4C18 


04E0 




BSC 


L 


G444 t t- 


BRANCH ON ZERO 


3A132610 






04EA 





4400 


0F69 




BSI 


L 


FOOO 


SLT 16-A REG FAILED 


3A1 32620 






04 EC 





3096 






DC 




/3096 


ERR ID 


3A132630 






04E0 





4400 


0F98 


G444 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 32640 






04EF 





70 EA 






MDX 




A444 


LOOP 


3A 132650 




DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 
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04FO 





1800 






RTE 




16 


NOW Af/OOOO ttf/COOO 


3A1 32660 






04F1 





4C18 


04F6 




BSC 


L 


G448t£- 


BRANCH ON ZERO 


3A132670 






04F3 





4*00 


0F69 




BSI 


L 


FOOO 


SLT 16-0 REG FAILED 


3A1 32680 






04F5 





3098 






DC 




/3098 


ERR ID 


3A 132690 






04F6 





4400 


0FC4 


G448 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 32700 






04FB 





70E1 






MDX 




A444 


LOOP 


3A132710 


.. 












»»*»»»»»»»»»»»*»*»**#**»*»»»»»*»*»»»»»*»«»»»* 


3A1 32720 






04F9 





C045 




A44A 


LO 




N443 


LD /5555 


3A132730 






04FA 





18D0 






RTE 




16 


NOW AO/XXXX Of/5555 


3A1 32740 






04FB 





C041 






LD 




N441 


/OOOO /5555 


3A132750 






04FC 





108F 






SLT 




15 


/2AAA /8000 


3A132760 






04F0 





4C02 


0500 




BSC 


L 


G44CtC 


BR ON CARRY 


3A132770 






04FF 





7003 






MOX 




G440 




3A132780 






0500 





4400 


OF 69 


&44C 


BSI 


L 


FOOO 


SLT 15-CARRY FA1LE0 


3A132790 






0502 





309 A 






DC 




/309A 


ERR 10 


3A1 32800 






0503 





4400 


0F98 


G440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A132810 






0505 





70F3 






MOX 




A44A 


LOOP 


3A132820 






0506 





F039 






EOR 




N444 


ZERO WITH /2AAA 


3A132830 






0507 





4C18 


050C 




BSC 


L 


G44A,£- 


BRANCH ON ZERO 


3A1 32840 






0509 





4400 


0F69 




BSI 


L 


FOOO 


SLT 15-A REG FAILED 


3A132850 






050B 





3099 






DC 




/3099 


ERR ID 


3 Al 32860 






050C 





4400 


0F98 


G44A 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A132870 






050E 





70EA 






MDX 




A44A 


LOOP 


3A1 32880 






050F 





18D0 






RTE 




16 


NOW Af/8000 Qf/OOOO 


3A132890 






0510 





F030 






EOR 




N445 


ZERO WITH /8000 


3A1 32900 






0511 





4C18 


0516 




BSC 


L 


G44Et£- 


BRANCH ON ZERO 


3A132910 






0513 





4400 


OF 69 




BSI 


L 


FOOO 


SLT 15-0 REG FAILED 


3A1 32920 






0515 





309B 






OC 




/309B 


ERR 10 


3A 1329 30 






0516 





4400 


0FC4 


G44E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 32940 






0518 





70 EO 






MDX 




A44A 


LOOP 


3-132950 














•••*•*****»*****«*«**•*•**•****•«**•****«**•• 


3A1 32960 






*«»»«»*»*»»«♦»»»»»»*»«»**»*»*»*»»*»»*»***»»»»*****»»*»»*»»*»*»*»«■**»»»» 


3A132970 






COKE 




DAT J 


i OR 


»LA- 


OPER- 








3A132980 






ADOR 




INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS & REMARKS IO£SEQ* AT RIGHT 


3A132990 






»»*»»»**»*»» 


,*»»**»»»*»»#»*»»»*»***»****»*»♦******»»*»*»»»*»*»***»****** 


3A133000 






0519 





C022 




B440 


LO 




N440 


LO /0001 


3A133010 






051A 





1800 






RTE 




16 


NOW A#/XXXX Of/0001 


3A133020 






0518 





C021 






LO 




N441 


LD /OOOO 


3A133030 






051C 





1080 






SLT 







NOW Af/OOOO Of/0001 


3A1 33040 






051D 





1081 






SLT 




1 


/OOOO /0002 


3A133050 






051E 





1085 






SLT 




5 


/OOOO /0040 


3A133060 






051F 





1087 






SLT 




7 


/OOOO /2000 


3A133070 






0520 





1089 






SLT 




9 


/0040 /OOOO 


3A133080 






0521 





108A 






SLT 




10 


/OOOO /OOOO 


3 A 133090 






0522 





4C02 


0527 




BSC 


L 


H443.C 


BR ON CARRY 


3 Al 33100 






0524 





4400 


OF 69 




BSI 


L 


FOOO 


COMB SLT-CARRY FAILED 


3A133110 






0526 





309D 






DC 




/309D 


ERR ID 


3A133120 






0527 





4400 


0F98 


H443 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A133130 






0529 





70EF 






MOX 




B440 


LOOP 


3A133140 






052A 





4C18 


052F 




BSC 


L 


H440t£- 


BRANCH ON ZERO 


3A133150 






052C 





4400 


Of 69 




BSI 


L 


FOOO 


COMB SLT-A REG FAILE 


3A133160 






052E 





309C 






DC 




/309C 


ERR ID 


3A133170 






052F 





4400 


0F98 


H440 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A133180 






0531 





70E7 






MDX 




B440 


LOOP 


3A133190 






0532 





18D0 






RTE 




16 


NOW Af/OOOO Of/0000 


3A133200 






0533 





4C18 


0538 




BSC 


L 


H444,£- 


BRANCH ON ZERO 


3A133210 






0535 





4400 


OF 69 




BSI 


L 


FOOO 


COMB SLT-Q REG FAILE 


3A133220 






0537 





309E 






DC 




/309E 


ERR ID 


3A133230 






0538 





4400 


0FC4 


H444 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A133240 






053A 





70DE 






MOX 




B440 


LOOP 


3A133250 






053B 





7006 






MDX 




A480 


EXIT TO NEXT ROUTINE 


3A133260 






053C 





0001 




N440 


DC 




/0001 




3A133270 






053D 





0000 




N441 


DC 




/OOOO 




3A133280 






053E 





FFFF 




N442 


DC 




/FFFF 




3A133290 






053F 





5555 




N443 


OC 




/5555 




3A1 33300 






0540 





2AAA 




N444 


DC 




/2AAA 




3A133310 






0541 





8000 




N445 

• 


DC 




/8000 




3A1 33320 
3A133330 




DATE 


02JAN66 


01MAY66 


15N0V66 


15FEB68 


26AUG6B 


PROG 10 
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4 ; 5490 
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• 






TEST 


OF STO OPERATION 


3A133340 














• 










3A133350 














•**»**•*•**»«•*•***•**«•****•*••*••*•«•*••*•• 


3A133360 






0542 





CO 19 




A480 


LD 




N480 


LD /OOOO 


3A133370 






0543 





D01A 






STO 




N482 


STO /OOOO 


3A133380 






0544 





C018 






LD 




N481 


LD /FFFF 


3A133390 






0545 





C018 






LD 




N482 


LO /OOOO 


3 A 133400 






0546 





4C18 


054B 




BSC 


L 


G4B0t£- 


BRANCH ON ZERO 


3A133410 






0548 





4400 


OF 69 




BSI 


L 


FOOO 


STO ZEROS FAILED 


3A1 33420 






05 4A 





309F 






DC 




/309F 


ERR ID 


3A133430 






054B 





4400 


0FC4 


G480 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 33440 






054D 





70F4 






MDX 




A480 


LOOP 


3A 13 3450 














*»»*»****»»***»»»*»»***»»»»•»»•»»*»»*»»»»»»»» 


3A1 33460 






054E 





COOE 




A482 


LD 




N481 


LD /FFFF 


3A133470 






054F 





DOOE 






STO 




N482 




3A133480 






0550 





COOB 






LD 




N480 


LD /OOOO 


3 A 13 3490 






0551 





COOC 






LD 




N482 


LD /FFFF 


3A1 33500 






0552 





FOOA 






EOR 




N481 


ZERO WITH /FFFF 


3A133510 






0553 





4C18 


0558 




BSC 


L 


G482,£- 


BRANCH ON ZERO 


3A133520 






0555 





4400 


OF 69 




BSI 


L 


FOOO 


STO ONES FAILED 


3A133530 






0557 





30 A 






OC 




/30A0 


ERR ID 


3A1 33540 






0558 





4400 


0FC4 


G4B2 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A133550 






055A 





70F3 






MDX 




A482 


LOOP 


3A133560 






055B 





7003 






MDX 




A4C0 


EXIT TO NEXT ROUTINE 


3A 133570 






055C 





OOOO 




N480 


DC 




/OOOO 




3A1 33580 






0550 





FFFF 




N481 


DC 




/FFFF 




3A 13 3590 






055E 





FFFF 




N482 

• 
* 
• 


DC 




/FFFF 

TEST 


OF STS OPERATION 


3A1 33600 
3A133610 
3A133620 
3A133630 














•*«•**«*««••«•••*•***•**•••••«••*••••*•••*•*• 


3A133640 






»»»»»*»»*««»»*»»»*•«•»»»»»*»»*»«»»»»*»»«»«»»»»**»»*»*»»»»»»»*»»»•»»»•»» 


3A133650 






CORE 




DATA OR 


•LA- 


OPER- 








3A1 33660 






ADDR 




INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS 


£ REMARKS 1D£SE0« AT RIGHT 


3A133670 






**»»»»♦*»*»»*»»»»**»*»*»*»»***»»»**»»***»»»**»***»*»»»***»*»»»»«*»»»»*» 


3A1 33680 






055F 





2003 




A4C0 


LOS 




3 




3A 13 3690 






0560 





2000 






LDS 







SET C AND OF OFF 


3A1 33700 






0561 





285D 






STS 




N4C0 




3A133710 






0562 





C05C 






LO 




N4C0 




3A1 33720 






0563 





4C18 


0568 




BSC 


L 


G4C0.C- 




3A133730 






0565 





4400 


OF 69 




BSI 


L 


FOOO 


STS FAILED TO STORE 


3A1 33740 






0567 





30A1 






OC 




/30A1 


ERR 10 


3 A 133750 






0568 





4400 


0FC4 


G4C0 


BS! 


L 


F005 


CK LOCK ON ERROR 


3A1 33760 






056A 





70 F4 






MDX 




A4C0 


LOOP 


3A133770 














»»*»»»»*»»»»»»»»»»»»»»»»*»»•»»*»•«»»»*»»»*»«» 


3A1 33780 






056B 





COFF 




A4C2 


LD 




A4C2 




3A 133790 






056C 





2003 






LOS 




3 




3A1 33800 






056D 





2851 






STS 




N4C0 




3A133810 






056E 





FOFC 






EOR 




A4C2 




3A133820 






056F 





4C18 


0574 




BSC 


L 


H4C3,£- 


BRANCH ON ZERO 


3A133830 






0571 





4400 


0F69 




BSI 


L 


FOOO 


ACC GONE AFT LOS-STS 


3A1 33840 






0573 





30A3 






DC 




/30A3 


ERR ID 


3A133850 






0574 





4C02 


0577 


H4C3 


BSC 


L 


H4C2,C 


BR IF CARRY IS NO 


3A1 33860 






0576 





7003 






MDX 




G4C2 




3A 13 3870 






0577 





4400 


0F69 


H-»C2 


BSI 


L 


FOOO 


STS NOT CLEAR CARRY 


3A133880 






0579 





30A2 






DC 




/30A2 


ERR ID 


3A 13 3890 






057A 





4400 


0F98 


G4C2 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 33900 






057C 





70 EE 






MDX 




A4C2 


LOOP 


3A133910 






057D 





4C01 


0580 




BSC 


L 


H4C4.0 


BR IF CARRY IS ON 


3A133920 






057F 





7003 






MDX 




G4C4 




3A133930 






0580 





4400 


0F69 


H4C4 


BSI 


L 


FOOO 


STS NOT CLEAR OVERFLW 


3A1 33940 






0582 





30A4 






DC 




/30A4 


ERR ID 


3A133950 






0583 





4400 


0F98 


G4C4 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 33960 






0585 





70E5 






MDX 




A4C2 


LOOP 


3A133970 






0586 





C038 






LO 




N4C0 




3A1 33980 






0587 





F038 






EOR 




N4C1 




3A133990 






0588 





4C18 


058D 




BSC 


L 


G4C6t£- 


BRANCH ON ZERO 


3A134O00 






058A 





4400 


0F69 




BSI 


L 


FOOO 


STS FAILED TO STORE 


3A134010 




OATE 


02JAN66 ( 


91MAY66 


15N0V66 


15FEB68 26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 420403A 
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DATE 
EC NO. 



058C 





30A5 






DC 




/30A5 


ERR ID 


3A1 34020 




0580 





4400 


0FC4 


G4C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A134030 




05EF 





700B 






MOX 




A4C2 


LOOP 


3A134040 












»»**»*»»»»•»•»»»*»»»»»»»*»»»»»»«•»»»*•»»»»»»* 


3A134050 




0590 





2002 




A4C8 


LOS 




2 




3A134060 




0591 





2002 






LOS 




2 


SET C ON OF OFF 


3A 134070 




0592 





282C 






STS 




N4C0 


SET /0002 IN N4C0 


3A1 34080 




0593 





2820 






STS 




N4C2 


SET /OOOO IN N4C2 


3A134090 




0594 





C02A 






LD 




N4C0 


LD /0002 


3A1 34100 




0595 





F02C 






EOR 




N4C3 


ZERO WITH /0002 


3A134110 




0596 





4C18 


059B 




BSC 


L 


G4C8,t- 


LRANCH ON ZERO 


3A134120 




0598 





4400 


OF 69 




BSI 


L 


FOOO 


STS FAILEO TO STORE 


3A134130 




059A 





30A6 






DC 




/30A6 


ERR ID 


3A134140 




05?B 





4400 


0F98 


G4C8 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A134150 




0590 





70F2 






MOX 




A4CB 


LOOP 


3A1 34160 




059E 





CO 22 






LD 




N4C2 


LD /0002 


3A134170 




059 F 





4C18 


05A4 




BSC 


L 


64CA,C- 


BRANCH ON ZERO 


3A1 34180 




05A1 





4400 


0F69 




BSI 


L 


FOOO 


STS NOT CLEAR CARRY 


3A134190 




05A3 





30A? 






DC 




/30A7 


ERR 10 


3A1 34200 




05A4 





4400 


0FC4 


G4CA 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 1342 10 




05A6 





70E9 






MOX 




A4C8 


LOOP 


3A1 34220 












»»»»»*»»»**»»»•*»»»»»*»•»»»»»»♦•*»*»»**»«**»* 


3A134230 




05A7 





2003 




A4CC 


LDS 




3 




3 Al 34240 




05A8 





2001 






LDS 




1 


SET C-OFF OF - ON 


3A134250 




05A9 





2815 






STS 




N4C0 


SET /0001 IN N4C0 


3A1 34260 




05AA 





2816 






STS 




N4C2 


SET /OOOO IN N4C2 


3A134270 




05AB 





C013 






LD 




N4C0 


LO /0001 


3A134280 




05AC 





F016 






EOR 




N4C4 


ZERO MITH /0001 


3A134290 




05A0 





4C18 


05B2 




BSC 


L 


G4CC6- 


BRANCH ON ZERO 


3A1 34300 




05AF 





4400 


OF 69 




BSI 


L 


FOOO 


STS FAILED TO STORE 


3A134310 




05B1 





30A8 






DC 




/30A8 


ERR 10 


3A1 34320 




05B2 





4400 


0F98 


G4CC 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A134330 




05B4 





70F2 






MOX 




A4CC 


LOOP 


3A1 34340 




05B5 





COOB 






LD 




N4C2 


LO STATUS STORED 


3A134350 




05B6 





4C18 


05BB 




BSC 


L 


G4CD.C- 


BRANCH ON ZERO 


3A1 34360 




05B8 





4400 


0F69 




BSI 


L 


FOOO 


STS NOT CLEAR OVERFL 


3A134370 




05BA 





30A9 






DC 




/30A9 


ERR 10 


3A1 34380 




05BB 





4400 


0FC4 


G4CD 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 134 390 




05BD 





70E9 






MOX 




A4CC 


LOOP 


3A1 34400 




05BE 





7005 






MDX 




A500 


EXIT TO NEXT ROUTINE 


3A 134410 




05BF 





0003 




N4C0 


DC 




/0003 




3 Al 34420 




05C0 





0003 




N4C1 


DC 




/0003 




3A 134430 




05C1 





0000 




N4C2 


-DC 




/OOOO 




3A1 34440 




05C2 





0002 




N4C3 


DC 




/0002 




3A 134450 




05C3 





0001 




N4C4 

• 
• 
• 


DC 




/0001 

TEST 


OF BSC OPERATION 


3A1 34460 
3 A 134470 
3A1 34480 
3A134490 












*»»***♦*•*•»*•»*»##*»*»*»**** ***•**«<*•«••***• 


3A1 34500 




•••••a***************************************************************** 


3A134510 




CORE 




DATA OR 


• LA- 


OPER- 








3A1 34520 




AOOR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


£ REMARKS 1DCSE0* AT RIGHT 


3A134530 




••••*•*•*•*•••••***»••*•*•*•*••*••*****»****••**«*••**•*••****•**••**•• 


3A1 34540 




05C4 





2003 




A500 


LDS 




3 


SET C AND OF ON 


3A134550 




05C5 





C400 


0658 




LD 


L 


N500 


LD /8001 


3A1 34560 




05C7 





482F 




• 


BSC 




OCEZC 


SK IF OF OFF, PLUS* EVEN, 
• ZERO OR CARRY OFF. 


3A134570 
3A1 34580 




05C8 





7003 






MOX 




6500 




3A 134590 




05C9 





4400 


0F69 




BSI 


L 


FOOO 


BSC SKPD-SHOULD NOT 


3A1 34600 




05CB 





30AA 






OC 




/30AA 


ERR ID 


3A134610 




05CC 





4400 


0FC4 


G500 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 34620 




05CE 





70 F5 






MDX 




A500 


LOOP 


3A 134630 












•»»»»»»»»•»»»»»»»»»»»»»*»»»»*»»»»»*»»»»***»»» 


3A1 34640 




05CF 





2003 




A502 


LDS 




3 


SET C C OF ON 


3A134650 




0500 





C400 


0659 




LD 


L 


N501 


LD /OOOO 


3A1 34660 




0502 





48 IB 




* 


BSC 




-OCC 


SK IF MINUS, OF OFF, CARRY 
•OFF OR PLUS 


3A 134670 
3A1 34680 




0503 





7003 






MOX 




G502 




3A 134690 




02JAN66 01MAY66 


15N0V66 
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DATE 
EC NO. 



0504 





4400 


0F69 




BSI 


L 


FOOO 


BSC SKPD-SHOULD NOT 


3A1 34700 




0506 





30AB 






DC 




/30AB 


ERR ID 


3A134710 




05D7 





4400 


0FC4 


G502 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 34720 




05D9 





70F5 






MDX 




A502 


LOOP 


3A134730 












*»»»*»»»»»»»«»»»»»**«»»«»»»*»»»•»»»»»•»»»»»*» 


3A1 34740 




05DA 





2003 




A504 


LDS 




3 


SET C ANO OF ON 


3A 134750 




050B 





C07E 






LD 




NS02 


LO /8000 


3A 134760 




05DC 





2809 






STS 




N507 


SET /0003 IN N507 


3A 134770 




0500 





4815 






BSC 




0-E 


SK IF OF OFF, MUNIS OR EVEN 


3A1 34780 




05DE 





7001 






MOX 




G504 




3A 134790 




05DF 





7003 






MDX 




G505 




3A1 34800 




05E0 





4400 


0F69 


G504 


BSI 


L 


FOOO 


BSC FAILEO TO SKIP 


3A134810 




05E2 





30AC 






OC 




/30AC 


ERR ID 


3A1 34820 




05E3 





4400 


0F98 


G505 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 134830 




05E5 





70F4 






MDX 




A504 


LOOP 


3A1 34840 




05E6 





2000 




N507 


LOS 




•-• 




3A134850 




05E7 





4801 






BSC 







SKIP IF OVERFLOW IS OFF 


3A1 34860 




05E8 





4801 






BSC 









3 A 134870 




05E9 





7001 






MDX 




G506 




3A1 34880 




05EA 





7003 






MDX 




G507 




3A 134890 




05EB 





4400 


0F69 


G506 


BSI 


L 


FOOO 


BSC NOT CLEAR OVERFLN 


3 A 134900 




05ED 





30AD 






DC 




/30AO 


ERR ID 


3A134910 




05EE 





4400 


0FC4 


G507 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 34920 




05F0 





70E9 






MOX 




A504 


LOOP 


3A 134930 












*»»*»»*»*»»»»***»»»»»**»»»*»•»«*»»»••»»*»»»*« 


3A 134940 




05F1 





2000 




A508 


LDS 







SET C AND OF OFF 


3 A 1349 50 




05F2 





C068 






LD 




N503 


LD /0001 


3A 134960 




0SF3 





482A 




• 


BSC 




CC2 


SK IF CARRY OFF, PLUS 
• OR ZERO 


3A 134970 
3A1 34980 




05F4 





7001 






MOX 




G508 




3 A 134990 




05F5 





7003 






MOX 




H508 




3A1 35000 




05F6 





4400 


OF 69 


G508 


BSI 


L 


FOOO 


BSC FAILED TO SKIP 


3A135010 




05F8 





30AE 






DC 




/30AE 


ERR 10 


3 Al 35020 




05F9 





4400 


0FC4 


H508 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A135030 




05FB 





70F5 






MOX 




A50B 


LOOP 


3A1 35040 












*»*»»•»»•»»**»»»*»»»»»•*»•»«*»»»»»»»»»»»»»«»» 


3A 135050 




05FC 





2003 




A50A 


LOS 




3 


SET C ANO OF ON 


3A1 35060 




05FD 





C05A 






LD 




N500 


LD /8001 


3A135070 




05FE 





4C0F 


060F 


* 


BSC 


L 


GSOA,£OCE 


BR ON NOT PLUS, OF ON, 
• CARRY ON OR NOT EVEN 


3A1 35080 
3A 135090 




0600 





7001 






MOX 




H50A 




3A135100 




0601 





7007 






MOX 




J50A 




3A 1351 10 




0602 





4400 


0F69 


H50A 


BSI 


L 


FOOO 


BSC FELL THRU 


3A135120 




0604 





30AF 






OC 




/30AF 


ERR 10 


3A135130 




0605 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A135140 




0607 





70 F4 






MOX 




A50A 


LOOP 


3A 135150 




0608 





7006 






MDX 




650 A 




3A1 35160 




0609 





4400 


0F69 


J50A 


BSI 


L 


FOOO 


BSC SKPD-SHOULD BRNCH 


3A135170 




060B 





30B0 






OC 




/30B0 


ERR ID 


3A135180 




060C 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A135190 




060E 





70E0 






MDX 




ASOA 


LOOP 


3A1 35200 




060F 





F048 




G50A 


EOR 




N500 


ZERO WITH /8001 


3A135210 




0610 





4820 






BSC 




Z 


SK ON ZERO 


3A1 35220 




0611 





7001 






MOX 




H50B 




3A135230 




0612 





7003 






MOX 




K50B 




3A135240 




0613 





4400 


OF 69 


H50B 


BSI 


L 


FOOO 


ACC DISTROVED AFTER BSC 


3A135250 




0615 





3170 






OC 




/3170 


ERR 10 


3A1 35260 




0616 





4400 


0FC4 


K50B 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A135270 




0618 





7000 






MDX 




A50C 


EXIT TO NEXT ROUTINE 


3A135280 












•*«***••••**•*•**••****•*•*••*•**••*••••••••• 


3A135290 




*»»»•»»»»•»»»•*****•»**»♦*»»»*»»»»***»*»*************•*•»*»•»»*»»•»»»*» 


3A135300 




CORE 




DATA 


OR 


•LA- 


OPER- 








3A135310 




AODR 




INSTRUCTION 


• BEL 


ATION 


FT 


OPERANDS C 


REMARKS IDtSEQ* AT RIGHT 


3A1 35320 




*»*••**•••*••***•*•*******•*•****•*••••*•«••••«»****••••«•«•*••••*•*••• 


3A135330 




0619 





2003 




A50C 


LDS 




3 


SET C C OF ON 


3A1 35340 




061A 





C041 






LD 




N504 


LO /0004 


3A135350 




061B 





4C30 


061 F 




BSC 


L 


G50C-Z 


BR NOT MINUS OR NOT ZERO 


3A1 35360 




0610 





7002 






NDX 




H50C 




3A135370 




02JAN66 01MAV66 


15N0V66 


15FEB68 26AUC68 


PROG ID 


03A1-1 
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061E 7008 




HDX 




J50C 




06 IF 700A 


G50C 


MDX 




K50C 




0620 4400 0F69 


H50C 


BSI 


L 


FOOO 


BSC FELL THRU 


0622 30B1 




oc 




/30B1 


ERR ID 


0623 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


0625 70F3 




M0X 




A50C 


LOOP 


0626 7006 




HDX 




A50E 




0627 4*00 0F69 


J50C 


BSI 


L 


FOOO 


BSC SKPD-SHOULD BRNC 


0629 30B2 




DC 




/30B2 


ERR ID 


062A 4400 0FC4 


K50C 


BSI 


L 


F005 


CK LOCK ON ERROR 


0fc2C 70EC 




MDX 




A50C 


LOOP 


0620 2000 


A50E 


LDS 







SET C AND OF OFF 




*****»*»*•*•»******•****•**•*********•*••**** 


062E 2003 




LDS 




3 


SET C AND OF ON 


062F C028 




LO 




N500 


LD /8001 


0630 4C3F 0634 


* 
* 


BSC 


L 


G50E.CE0CZ 


- BR ON NOT PLUS. NOT 
•OF, CARRY. NOT ZERO 
•NOT MINUS 


0632 700B 




MDX 




H50E 




0633 7007 




MDX 




J50E 




0634 4400 0F69 


G50E 


BSI 


L 


FOOO 


BSC BRNCHED-SHOULDNT 


0636 30B3 




DC 




/30B3 


ERR ID 


0637 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


0639 70F3 




MDX 




A50E 


LOOP 


063A 7006 




MDX 




B500 




06 3B 4400 OF 69 


J50E 


BSI 


L 


FOOO 


BSC SKPD-SHOULONT 


0630 30B4 




DC 




/30B4 


ERR 10 


063E 4400 0FC4 


H50E 


BSI 


L 


F005 


CK LOCK ON ERROR 


0640 70EC 




MOX 




A50E 


LOOP 




*»«»»»»»*»»»»»»»»»»»»»»»»»»**»»»»••»»»»•»*»»» 


0641 2003 


8500 


LDS 




3 


SET C AND OF ON 


0642 coie 




LD 




N503 


LD /0001 


0643 4808 




BSC 




t 


SK ON PLUS 


0644 700C 




MDX 




S501 




0645 2817 




STS 




N505 


SET /0003 IN N505 


0646 C016 




LD 




N505 


LD /0003 


0647 F016 




EOR 




N506 


ZERO WITH /0003 


0648 4C18 0654 




BSC 


L 


S503,t- 


BRANCH ON ZERO 


064A 4400 0F69 




BSI 


L 


FOOO 


BSC C CLEARED OVFLW 


064C 30B5 




DC 




/30B5 


ERR ID 


0640 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


064F 70F1 




MDX 




B500 


LOOP 


0650 700F 




MDX 




A540 


EXIT TO NEXT ROUTINE 


0651 4400 OF 69 


S501 


BSI 


L 


FOOO 


BSC FAILED TO SKP 


0653 30B6 




DC 




/30B6 


ERR ID 


0654 4400 0FC4 


S503 


BSI 


L 


F005 


CK LOCK ON CRROR 


0656 70EA 




MDX 




B500 


LOOP 


0657 7008 




MDX 




A540 


EXIT TO NEXT ROUTINE 


0658 8001 


N500 


OC 




/8001 




0659 0000 


N501 


DC 




/OOOO 




065A 8000 


N502 


DC 




/8000 




065B 0001 


N503 


DC 




/0001 




065C 0004 


N504 


DC 




/0004 




065D 0000 


N505 


DC 




•-• 


STORAGE 


065F 0003 


N506 


DC 




/0003 




065F 0002 


N542 


DC 




/0002 






* 
• 






TEST 


OF BSI OPERATION 



CORE DATA OR »LA- OPER- 

ADOR INSTRUCTION *BEL AT10N FT OPERANDS £ REMARKS IDtSFQf AT RIGHT 

»»»»»*»»*»*»*»»#»«»»»»»»»»»»»»» »»»«!»»»*» *»»*»»*»»*»»*»»*»*****•»*»»»»*» 

0660 2003 A540 LDS 3 SET C AND OF ON 

0661 C0F6 LD N500 LD /8001 

0662 442F 0674 BSI L G540,EC0£Z BR ON NOT EVEN, CARRY, OF, 
0664 7001 MDX H540 • NOT PLUS OR NOT ZERO 



3A135380 
3A135390 
3A1 35400 
3A135410 
3A1 35420 
3A135430 
3 Al 35440 
3A135450 
3A1 35460 
3A 135470 
3A135480 
3A135490 
3A1 35500 
3A135510 
3A135520 
3A135530 
3A135540 
3A135550 
3A1 35560 
3A135570 
3A1 35580 
3A 135590 
3A1 35600 
3A135610 
3A1 35620 
3A 135630 
3A1 35640 
3A135650 
3A1 35660 
3A135670 
3A1 35680 
3A135690 
3A1 35700 
3A135710 
3A135720 
3A135730 
3A1 35740 
3A 135750 
31135760 
3A135770 
3A1357B0 
3A 135790 
3A1 35800 
3A135810 
3A135820 
3A135830 
3A135840 
3A135850 
3A1 35860 
3A 135670 
3A1 35880 
3A135890 
3A1 35900 
3A135910 
3A1 35920 
3A135930 
3A1 35940 
3A135950 
3A1 35960 
3A 135970 
3A 135980 
3A135990 
3A1 36000 
3A 136010 
3A136020 
3A1 36030 
3A1 36040 
3A 136050 



DATE 


02JAN66 


01MAY66 


15N0V66 
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0665 


7007 






MOX 




J540 




3A1 36060 


0666 


4400 


OF 69 


H540 


BSI 


L 


FOOO 


BSI FELL THRU 


3A136070 


0668 


308 7 






OC 




/30B7 


ERR ID 


3 A 136080 


0669 


4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 136090 


0668 


70F4 






MDX 




A540 


LOOP 


3A136100 


066C 


7014 






HDX 




A 544 


EXIT TO NEXT ROUTINE 


3A136110 


0660 


4400 


0F69 


J 540 


BSI 


L 


FOOO 


BSI SKPD-SHOULD BR«CH 


3A136120 


066F 


30 B8 






DC 




/30B8 


ERR ID 


3A136130 


0670 


4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 36140 


0672 


70ED 






MDX 




A540 


LOOP 


3A136150 


0673 


7001 






MDX 




G540C 1 


SK TO HORO AFTER G540 


3A1 36160 


0674 


0000 




G540 


DC 




/OOOO 




3A136170 


0675 


28E7 






STS 




N505 


STORE /0002 IN N505 


3A136180 


0676 


C0E6 






LO 




N505 


LO /0002 


3A136190 


0677 


F400 


065F 




EOR 


L 


N542 


ZERO WITH /0002 


3A1 36200 


0679 


4C18 


067E 




BSC 


L 


6542, t- 


BRANCH ON ZERO 


3A136210 


0676 


4400 


OF 69 




BSI 


L 


FOOO 


BSI NOT CLEAR OVERFLOW 


3A1 36220 


0670 


30 B9 






DC 




/30B9 


ERR ID 


3A136230 


067E 


4400 


0FC4 


G542 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 36240 


0680 


70 DF 






MOX 




A540 


LOOP 


3A136250 








*•***•*••***«*••*«•*******••**•*••»***•****»* 


3A136260 


0681 


C400 


065F 


A544 


LO 


L 


N542 


LO /0002 


3A136270 


0683 


4430 


069 5 




BSI 


L 


G544, Z- 


SK ON NOT ZERO OR 


3A136280 


0685 


7001 






MDX 




M544 


• NOT MINUS 


3A136290 


0686 


7007 






MDX 




J544 




3A1 36300 


0687 


4400 


OF 69 


H544 


BSI 


L 


FOOO 


BSI DID NOT BRANCH 


3A136310 


0689 


30BA 






DC 




/30BA 


ERR ID 


3A136320 


068A 


4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A136330 


068C 


70F4 






MDX 




A544 


LOOP 


3A1 36340 


068D 


7008 






MDX 




A546 


EXIT TO NEXT ROUTINE 


3A136350 


068E 


4400 


OF 69 


J 544 


BSI 


L 


FOOO 


BSI SKPD-SHOULD BRNC 


3A1 36360 


0690 


30BB 






DC 




/30BB 


ERi". ID 

CK LOCK ON ERROR 


3A136370 


0691 


4400 


0FC4 




BSI 


L 


F005 


3A136380 


0693 


70 ED 






MOX 




A544 


LOOP 


3A 136390 


0694 


7001 






MDX 




A546 


EXIT TO NEXT ROUTINE 


3A1 36400 


0695 


0000 




G544 


DC 




/OOOO 




3A136410 








»»*»»»»»»»»»»•»»•»»••»»»»•»»•»»•••»•»»••»**»» 


3A1 36420 


0696 


C0C2 




A546 


LO 




N501 




3A 1364 30 


0697 


4420 


069 B 




BSI 


L 


G546.Z 


BR WHEN NOT ZERO 


3A1 36440 


0699 


700C 






MDX 




J546 




3A 136450 


069A 


7008 






MDX 




M546 




3A1 36460 


069B 


0000 




G546 


DC 




/OOOO 




3A 136470 


069C 


4400 


OF 69 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULO NO 


3A1 36480 


069E 


30 BC 






DC 




/30BC 


ERR ID 


3A136490 


069F 


4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 36500 


06A1 


70 F4 






MDX 




A546 


LOOP 


3A136510 


06A2 


7006 






MDX 




A548 


EXIT TO NEXT ROUTINE 


3A136520 


06A3 


4400 


OF 69 


H546 


BSI 


L 


FOOO 


BSI SKPD-SHOULO NOT 


3A136530 


06A5 


30BP 






OC 




/30BD 


ERR ID 


3A 136540 


06A6 


4400 


0FC4 


J546 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A136550 


06A8 


70ED 






MDX 




A546 


LOOP 


3A1 36560 








»*»»»**»*»»»»»»*»»»««»»»»»*•»»»»«»»»•»»»»»»»* 


3A136570 


»»»«»»»»•»»»»*»»»•»*»»•»»*»»*»»»«»»»»*»*»»»»•»»»»»»»»»»**»»»*********** 


3A136580 


CORE 


DATA OR 


*LA- 


OPER- 








3A 136590 


ADDR 


INSTRUCTION 


*8EL 


ATION 


FT 


OPERANDS 


£ REMARKS IDCSEO* AT RIGHT 


3A1 36600 


»»»»•*»»»»»»»»»»»»»•»»»»»»»*»*»»»»*»»»»»*»*•»»»»•»**»»****»»****•»**»** 


3A136610 


06A9 


COAE 




A548 


LD 




N500 




3A1 36620 


06AA 


4410 


06B4 




BSI 


L 


G548,- 


BR WHEN NOT MINUS 


3A 1366 30 


06AC 


700 B 






MDX 




H548 




3A136640 


06AD 


4400 


0F69 




BSI 


L 


FOOO 


BSI SKP-ON CONO TRUE 


3A 136650 


06AF 


30BF 






DC 




/30BF 


ERR ID 


3A136660 


06B0 


4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A 136670 


0682 


70F6 






MDX 




A54 8 


LOOP 


3A1 36680 


0683 


7007 






MOX 




A54A 


EXIT TO NEXT ROUTINE 


3A 136690 


06B4 


0000 




G548 


DC 




/OOOO 




3A 136700 


06B5 


4400 


0F69 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


3A136710 


06B7 


30BF 






DC 




/30BF 


ERR ID 


3A136720 


06B8 


4400 


0FC4 


H548 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 1367 30 



DATE 
EC NO. 
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15N0V66 
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15FEB68 
420403 
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DATE 
EC NO. 



06BA 





70EE 






NOX 




A548 


LOOP 


3A136740 












»»»**»*»*»»»•»»»*»»«»•»»•»»•»••»«»•»»»»*»•«»• 


3A136750 




06BB 





C0A3 




A 54 A 


LO 




N542 




3A136760 




06BC 





4408 


06C6 




BSI 


L 


G54A,C 


BR WHEN NOT PLUS 


3A136770 




06BE 





700B 






MOX 




H54A 




3A1 36780 




06BF 





4400 


OF 69 




bs: 


I 


FOOO 


BSI SKPD ON COND TRUE 


3A 136790 




06C1 





30C0 






DC 




/30C0 


ERR ID 


3A1 36800 




06C2 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A136810 




06C4 





70F6 






MOX 




A54A 


LOOP 


3A136820 




06C5 





7007 






MOX 




A54C 


EXIT TO NEXT ROUTINE 


3A 136830 




06C6 





0000 




G54A 


DC 




/OOOO 




3A136840 




OiC7 





4400 


OF 69 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


3A136850 




06C9 





30C1 






DC 




/30C1 


ERR ID 


3A136860 




06CA 





4400 


0FC4 


H54A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A136B70 




06CC 





70EE 






MOX 




A54A 


LOOP 


3A136B80 












*»»»»»•*»»*»*»»»»»»»»»»•»»»»*»»•»••»»«»*»»»*» 


3A136890 




06CD 





C091 




A54C 


LD 




N542 




3A1 36900 




ObCE 





4404 


0608 




BSI 


L 


G54CE 


BR WHEN NOT EVEN 


3A136910 




0600 





7008 






MDX 




H54C 




3A1 36920 




06D1 





4400 


OF 69 




BSI 


L 


FOOO 


BSI SKPD ON COND TRUE 


3A136930 




06D3 





30C2 






DC 




/30C2 


ERR ID 


3A1 36940 




0604 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A136950 




0606 





70F6 






MOX 




A54C 


LOOP 


3A1 36960 




0607 





7007 






MDX 




A54E 


EXIT TO NEXT ROUTINE 


3A136970 




C608 





0000 




G54C 


DC 




/OOOO 




3A1 36980 




0609 





4400 


0F69 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


3A136990 




060B 





30C3 






DC 




/30C3 


ERR ID 


3A1 37000 




06DC 





4400 


0FC4 


H54C 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A137010 




06DE 





70EE 






MDX 




A54C 


LOOP 


3A1 37020 












»»«**»»»»»*»»»»»»»»»»»»*•»»»»•**«»•»»»*»»*•»» 


3A 13 7030 




060F 





2000 




A54E 


LDS 







SET C AND OF OFF 


3A1 37040 




06E0 





4402 


06EA 




BSI 


L 


G54E«C 


BR IF CARRY IS ON 


3A 137050 




06E2 





7008 






MDX 




H54E 




3*137060 




06E3 





4400 


OF 69 




BSI 


L 


FOOO 


6SI SKPD ON COND TRUE 


3*137070 




06E5 





30C4 






DC 




/30C4 


ERR ID 


3*137080 




06E6 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3*137090 




06E8 





70F6 






MDX 




A54E 


LOOP 


3*137100 




06E9 





7007 






MDX 




A54F 


EXIT TO NEXT ROUTINE 


3*137110 




06EA 





0000 




G54E 


DC 




/OOOO 




3*137120 




06EB 





4400 


OF 69 




BSI 


L 


FOOO 


BSI BRNCHO-SHOULD NOT 


3*137130 




06E0 





30C5 






DC 




/30C5 


ERR ID 


3*137140 




06EE 





4400 


0FC4 


H54E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3*137150 




06F0 





70EE 






MOX 




A54E 


LOOP 


3*137160 












•**•**•********•***•••••••****•*•*•******•••* 


3*137170 




06F1 





2000 




A54F 


LDS 







SET C AND OF OFF 


3*137180 




06F2 





4401 


06F0 




BSI 


L 


G54F ,0 


BR ON OVERFLOW 


3*137190 




06F4 





700C 






MOX 




H54F 




3*137200 




06F5 





4*00 


OF 69 




BSI 


L 


FOOO 


BSI SKPD ON COND TRUE 


3*137210 




06F7 





30C6 






DC 




/30C6 


ERR ID 


3*137220 




06F8 





30C6 






DC 




/30C6 


ERR ID 


3*137230 




06F9 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3*137240 




06FB 





70F5 






MDX 




A54F 


LOOP 


3*137250 




06FC 





7007 






MDX 




A580 


EXIT TO NEXT ROUTINE 


3*137260 




06F0 





0000 




G54F 


DC 




/OOOO 




3*137270 




06FE 





4400 


OF 69 




BSI 


L 


FOOO 


BSI BRNCHD-SHOULD NOT 


3*137280 




0700 





30C7 






DC 




/30C7 


ERR ID 


3*137290 




0701 





4400 


0FC4 


H54F 


BSI 


L 


F005 


CK LOCK ON ERROR 


3*137300 




0703 





70E0 




• 
* 
* 


MDX 




A54F 


LOOP 
TEST OF LOD OPERATION 


3*137310 
3*137320 
3*137330 
3*137340 












****•••••***••••••*•••*•*••••**••*•*•*••*•*•* 


3*137350 




•*•»**•»*•»•**•»»»•»»»*»»»*»•»*»»»*»»**»»»»******»*»»»*»»»**»»»»»»*•»*« 


3*137360 




CORE 




DATA OR 


»LA- 


OPER- 








3*137370 




AOOR 




INSTRUCTION 


»BEL 


ATION 


FT 


OPERANDS £ REMARKS IOCSEOf AT RIGHT 


3*137380 




*»»•»•»*••»*«»»»»•»»********»•*»»»*»*»»#»•»»»•*»»»***»**»»*«»*•»**•***» 


3*137390 




0704 





CCOO 


0788 


A560 


LDD 


L 


N5C1 


LDD Af/OOOO Of/0000 


3*137400 




0706 





4C18 


070B 




BSC 


L 


G580,£ 


BRANCH ON ZERO 


3*137410 




02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


415490 415490C 


419643 


420403 


420403A 
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0708 





4400 


OF 69 




BSI 


L 


FOOO 


LOD-A REG INCORRECT 


3A137420 






070A 





30C8 






DC 




/30C8 


ERR ID 


3A 137430 






0708 





4400 


0F98 


G580 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 137440 






070D 





70F6 






MDX 




A580 


LOOP 


3A1374&0 






070E 





1800 






RTE 




16 




3A137460 






070F 





4C18 


0714 




BSC 


L 


G582,£- 


BRANCH ON ZERO 


3A 13 7470 






0711 





4*00 


OF 69 




BSI 


L 


FOOO 


LDD-U REG INCORRECT 


3A1 37480 






0713 





30C9 






DC 




/30C9 


ERR ID 


3A 137490 






0714 





4400 


0FC4 


G582 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A137500 






0716 





70 ED 






MDX 




A580 


LOOP 


3A137510 














»»»»»»»»*»*»»*»»»»»»*»***»»»»«*»♦»»**»*»****» 


3A137520 






0717 





C872 




A584 


LDD 




N5C3 


LD Af/FFFF Gf/FFFF 


3A137530 






0718 





F072 






EOR 




N5C4 


ZERO WITH /FFFF 


3A1 37540 






0719 





4C18 


071E 




BSC 


L 


G584.6- 


BRANCH ON ZERO 


3A137550 






0718 





4400 


OF 69 




BSI 


L 


FOOO 


LDD-A REG INCORRECT 


3A137560 






071D 





30CA 






DC 




/30CA 


ERR 10 


3A137570 






071E 





4400 


0F98 


G584 


BSI 


I 


FOOE 


CK LOCK ON ERROR 


3A137580 






0720 





70F6 






MDX 




A584 


LOOP 


3A 137590 






0721 





1800 






RTE 




16 


NOW Af/FFFF 01/0000 


3A1 37600 






0722 





F068 






EOR 




N5C4 


ZERO WITH /FFFF 


3A137610 






0723 





4C18 


0728 




BSC 


L 


GS86,£- 


BRANCH ON ZERO 


3A137620 






0725 





4400 


OF 69 




BSI 


L 


FOOO 


LDO-O REG INCORRECT 


3A 13 7630 






0727 





30CB 






DC 




/30CB 


ERR ID 


3A1 37640 






0728 





4400 


0FC4 


G586 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A137650 






072A 





70EC 






MDX 




A584 


LOOP 


3A1 37660 














*•»»*»»»»»»»»»*»»»»»»»»*»»»»*«#«*»*»•»*»»»»«» 


3 A 137670 






072B 





C85C 




A588 


LDD 




N5C1 


LD Af/OOOO Of/0000 


3A1376B0 






072C 





4C18 


0731 




BSC 


L 


G588.6- 


BRANCH ON ZERO 


3A137690 






072E 





4400 


OF 69 




BSI 


L 


FOOO 


LOD OOD-A REG FAILED 


3A1 37700 






0730 





30CC 






OC 




/30CC 


ERR ID 


3A137710 






0731 





4400 


0F98 


G588 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A137720 






0733 





70F7 






MDX 




A588 


LOOP 


3A 137730 






0734 





1800 






RTE 




16 


NOW Af/FFFF 08/0000 


3A1 37740 






0735 





4C18 


073A 




BSC 


L 


G58A,£- 


BRANCH ON ZERO 


3A137750 






0737 





4400 


0F69 




BSI 


i_ 


FOOO 


LDD-ODD-0 PEG FAILED 


3A1 37760 






0739 





30CD 






DC 




/30CD 


ERR ID 


3A 13 7770 






073A 





4400 


0FC4 


G58A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A137780 






073C 





70EE 




• 
* 
• 


MDX 




A588 

TEST 


LOOP 
OF STD OPERATION 


3A137790 
3A1 37800 
3A137810 
3A1 37820 














*»•»»•*»***»*»*»*»*:»»*»»»*•»«»»»•»»*********» 


3A137830 






*•***•*•***•**•*•*••••••••••*••••*•****•****«***•*•******••*•**•****••• 


3A1 37840 






CORE 




DATA OR 


*LA- 


OPER- 








3A137850 






AOOR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS 1 


E. REMARKS IDtSEQt AT RIGHT 


3A137860 






•»**•*•••»•«»»»»•»*»*»»•*»»»*»•»»»**»»**»«»*••»»*»»**»»»*»*»*»*»**•**** 


3A 13 7870 






0730 





C84A 




A5C0 


LDD 




N5C1 


LD A8/0000 08/0000 


3A1378B0 






07 3E 





0840 






STO 




N5C5 




3A137890 






073F 





C04C 






LO 




N5C5 


LD Af/OOOO 08/0000 


3 Al 37900 






0740 





4C18 


0745 




BSC 


L 


G5C0tt- 


BRANCH ON ZERO 


3A137910 






0742 





4400 


OF 69 




BSI 


L 


FOOO 


STO-EA INCORRECT 


3A1 37920 






0744 





30CF 






DC 




/30CF 


ERR ID 


3A137930 






0745 





4400 


0F98 


G5C0 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 37940 






0747 





70 F5 






MDX 




A5C0 


LOOP 


3*137950 






0748 





C044 






LO 




N5C6 


LD /FFFF 


3*137960 






0749 





4C18 


074E 




BSC 


L 


G5C2.C- 


BRANCH ON ZERO 


3*137970 






074B 





4400 


0F69 




BSI 


L 


FOOO 


STG-EAC1 INCORRECT 


3*137980 






0740 





30CF 






DC 




/30CF 


ERR 10 


3*137990 






074E 





4400 


0FC4 


G5C2 


BSI 


L 


F005 


CK LOCK ON ERROR 


3*138000 






0750 





70EC 






MDX 




A5C0 


LOOP 


3*138010 














»»*»»»»»»«»»»»»»»»»»»»»»»*»»»•»»»»»»•»•««*»»» 


3*138020 






0751 





CO 36 




A5C4 


LD 




N5C1 


LD /OOOO 


3*138030 






0752 





0039 






STO 




N5C5 


STORE /OOOO 


3*138040 






0753 





DO 39 






STO 




N5C6 


STORE /OOOO 


3*138050 






0754 





C835 






LOD 




NSC 3 


LD Af/FFFF Of/FFFF 


3*138060 






0755 





0836 






STD 




N5C5 


STORE /FFFF AND /FFFF 


3*138070 






0756 





C035 






LD 




NSC 5 


LD /FFFF 


3*138080 






0757 





F032 






EOR 




N5C3 


ZERO WITH /FFFF 


3*138090 




DATE 


02JAN66 01MAV66 


15N0V66 
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DATE 
EC NO. 



0758 





4C18 


0750 




BSC 


L 


G5C*t£- 


BRANCH ON ZERO 


3A138100 




01 5A 





4*00 


OF 69 




BSI 


L 


FOOO 


STD-EA INCORRECT 


3A138110 




075C 





3000 






DC 




/30D0 


ERR ID 


3A1 38120 




0750 





4400 


0F98 


G5C* 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A138130 - 




075F 





70F1 






MDX 




A5C* 


LOOP 


3A138140 




0760 





C02C 






LO 




N5C6 


LO /Ull 


3A138150 




0761 





F028 






EOR 




NSC 3 




3A1 38160 




0762 





4C18 


0767 




BSC 


L 


G5C6,t- 


BRANCH ON ZERO 


3A138170 




0764 





4*00 


0F69 




BSI 


L 


FOOO 


STD-EAC1 INCORRECT 


3A 138180 




0766 





3001 






DC 




/3001 


ERR ID 


3A138190 




0767 





**00 


OFC* 


G5C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A138200 




0769 





70E7 






MDX 




ASC* 


LOOP 


3A138210 












»»*»»»*«»»»»***«»*»»*«»»*»»»»»»**»»»***»**»»» 


3A1 38220 




076A 





COIF 




A5C8 


LD 




N5C3 


LD /FFFF 


3A136230 




076B 





0020 






STO 




N5C5 


STORE /FFFF 


3A 1382*0 




076C 





0020 






STO 




N5C6 




3A1382S0 




0760 





D020 






STO 




N5C7 




3A138260 




076E 





C819 






LDD 




N5C1 


LD A* /OOOO 0«/0000 


3A138270 




076F 





0810 






STO 




N5C6 


STORE IN NSC6 t N5C7 


3A1 38280 




0770 





COW 






LD 




N5C1 


LD /OOOO 


3A 138290 




0771 





C01B 






LD 




NSC 6 


LO /OOOO 


3A138300 




0772 





*C18 


0777 




BSC 


L 


G5C8,6- 


BRANCH ON ZERO 


3A138310 




0774 





**00 


OF 69 




BSI 


L 


FOOO 


STD-ODO-EA INCORRECT 


3A138320 




0776 





3002 






DC 




/3002 


ERR ID 


3A 138330 




0777 





**00 


0F98 


G5C8 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3 A 138 3*0 




0779 





70 FO 






MDX 




ASC8 


LOOP 


3A136350 




077A 





C013 






LD 




N5C7 


LO /FFFF 


3A 138360 




077B 





FOOE 






EOR 




N5C3 


ZERO WITH /FFFF 


3A 138370 




077C 





*C18 


0781 




BSC 


L 


G5CA.C- 


BRANCH ON ZERO 


3A 138380 




077E 





**00 


OF 69 




BSI 


L 


FOOO 


STD-0D0-EA61 LOADEO 


3A13B390 




0780 





3003 






DC 




/30D3 


ERR 10 


3A1 38*00 




0781 





**00 


OFC* 


G5CA 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A13B*10 




0783 





70E6 






MOX 




A5CB 


LOOP 


3 A 138*20 




078* 





C005 






LO 




N5C3 


LO /FFFF 


3A 138*30 




0785 





0007 






STO 




NSC 6 




3 Al 38**0 




0786 





DO 07 






STO 




N5C7 




3A 138*50 




0787 





7007 






MDX 




A600 


EXIT TO NEXT ROUTINE 


3A1 38*60 




0788 




0000 






BSS 


E 






3A1 38*70 




0788 





0000 




N5C1 


DC 




/oooo 




3A1 38*80 




0789 





0000 






DC 




/oooo 




3A138*90 




076A 





FFFF 




N5C3 


DC 




/FFFF 




3A1 38500 




0788 





FFFF 




NSC* 


DC 




/FFFF 




3A138S10 




078C 





FFFF 




N5C5 


DC 




/FFFF 




3 Al 38520 




0780 





FFFF 




NSC 6 


DC 




/FFFF 




3A138530 




078E 





FFFF 




NSC7 

• 
• 
• 


DC 




/FFFF 

TEST 


OF LDX OPERATION 


3A138540 
3A138SS0 
3A 138560 
3A138570 












••*•*•••••••*•*«•****•»*******«***•*•••*••*** 


3A1 38580 




»»»»»»»»«»»»*****»**♦»»*»**»»**»»**♦**♦*»*»*»**»*»******»*****»*****»** 


3A138590 




CORE 




DATA OR 


*LA- 


OPER- 








3A1 38600 




ADDR 




INSTRUCTION 


*8EL 


ATION 


FT 


OPERANDS 


C REMARKS IDCSEO* AT RIGHT 


3A138610 




•*•••••*•**••***•••**••••»*«***•**•*•*«****»»**•*»*•********»****•*•*•• 


3A138620 




078F 





6500 


0792 


A600 


LDX 


LI 


G600 


LO XR 1 WITH ADOR OF G600 


3A138630 




0791 





7003 






MDX 




H600 




3A1 38640 




079? 





**00 


0F69 


G600 


BSI 


L 


FOOO 


TAG REG BIT 7 FAILED 


3A138650 




079* 





300* 






DC 




/300* 


ERR ID 


3A13B660 




0795 





**00 


OFC* 


H600 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A138670 




0797 





70F7 






MDX 




A600 


LOOP 


3A1 38680 












*»»*»»»*»»»»»»»»»»»»»»«»»»»»»»*»»»«»*»«*»»»»* 


3A 13 8690 




0798 





6600 


079B 


A602 


LDX 


L2 


G602 


LO XR 2 WITH ADDR OF G602 


3A1 38700 




079A 





7003 






MOX 




H602 




3A138710 




0798 





**00 


OF 69 


G602 


BSI 


L 


FOOO 


TAG REG BIT 6 FAILED 


3A1 38720 




0790 





3005 






DC 




/30D5 


ERR ID 


3A138730 




079E 





**00 


OFC* 


M602 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 387*0 




07A0 





70F7 






MDX 




A602 


LOOP 


3A138750 












»»»»•»»**•»»»»*»»»»»»*»»**»»*»»***»»*»******* 


3A1 38760 




07A1 





6100 




A60* 


LDX 


1 





LD DISP0O TO XR 1 


3A 138770 




02JAN66 1 


11MAY66 


15N0V66 


15FEB68 26AUG68 


PROG ID 


03A1-1 


415*90 415490C 


*196*3 


420*03 420403A 
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DATE 
EC NO. 



07/.' 





C500 


080C 




LO 


LI 


N601 


LD ADDR OF N601 £ XR 


1 


3A138780 




07A* 





F067 






EOR 




N601 


ZERO WITH ADDR OF N60I 


3A138790 




07A5 





*C18 


07AA 




BSC 


L 


G60*,£- 


BRANCH ON ZERO 




3A1 38800 




07A7 





**00 


OF 69 




BSI 


L 


FOOO 


IX 1 NOT LOADED 




3A138810 




07A9 





SOD 6 






DC 




/30D6 


ERR 10 




3A138820 




07AA 





**00 


0FC4 


G60* 


BSI 


L 


F005 


CK LOCK ON ERkOR 




3A138830 




07AC 





70F* 






MOX 




A60* 


LOOP 




3A1 388*0 












•»»*»»»»•»»»»»**»»»»»»*«»»**»**»*»»»»»**»»»«» 




3A138&50 




07AD 





6200 




A 606 


LDX 


2 





LD OlSPiO TO XR 2 




3A1 38860 




07AE 





C05F 






LD 




N603 


LD /FFFF 




3A138870 




07AF 





C600 


080C 




LD 


L2 


N601 


LO ADDR OF N601 £ XR 


2 


3A1 38880 




0781 





F05A 






EOR 




N601 


ZERO WITH ADDR OF N601 


3A138890 




0762 





4C18 


07B7 




BSC 


L 


G606t£- 


BRANCH ON ZERO 




3A1 38900 




07B* 





**00 


OF 69 




BSI 


L 


FOOO 


XR 2 NOT LOADED 




3A138910 




07B6 





3007 






DC 




/30D7 


ERR 10 




3 A 138920 




07B7 





4*00 


0FC4 


G606 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A138930 




0789 





70F3 






MDX 




A606 


LOOP 




3A138940 












«»«»»»»»*•»»•»»»»•»»»»»»»**•»»*»»•»»*»»»****» 




3A138950 




07BA 





6300 




A608 


LDX 


3 





LO OlSPiO TO XR 3 




3A1 38960 




07BB 





CO 52 






LD 




N603 


LO /FFFF 




3A138970 




07BC 





C700 


080C 




LD 


L3 


N601 


LD ADDR OF N601 I XR 


3 


3A1 38980 




07BE 





FO*D 






EOR 




N601 


ZERO WITH AODR OF N601 


v 3A1 38990 




07BF 





*C18 


07C4 




BSC 


L 


G608.C- 


BRANCH ON ZERO 




3A1 39000 




07C1 





**00 


0F69 




BSI 


L 


FOOO 


XR 3 NOT LOADED 




3A139010 




07C3 





30D8 






DC 




/30D8 


ERR ID 




3A1 39020 




07C* 





**00 


0FC4 


G608 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A 1390 30 




07C6 





70F3 






MDX 




A608 


LOOP 




3A139040 












*«»«»»»»*«»»»»»»»**»*«*»«»»*»»»»«»«»»*»»««»** 




3A139050 




07C7 





61FF 




A60A 


LDX 


1 


-1 


LD XR 1 WITH -1 




3A1 39060 




07C8 





C0*5 






LD 




N603 


LD /llll 




3A139070 




07C9 





C500 


080C 




LD 


LI 


N601 


LD ADDR OF N601 £ XR 


1 


3A1 39080 




07CB 





F03F 






EOR 




N600 


ZERO HUH ADDR OF N600 


3A 139090 




07CC 





*C18 


07D1 




BSC 


L 


G60A,£- 


BRANCH ON ZERO 




3A139100 




07CE 





**00 


0F69 




BSI 


L 


FOOO 


-CR 1 NOT LOADED 




3A139110 




0700 





3009 






DC 




/3009 


ERR ID 




3A139120 




07D1 





**00 


0FC4 


G60A 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A139130 




0703 





70F3 






MDX 




A60A 


LOOP 




3A1391*0 












*•»»»»•»»»»»*»»»»*»»»»•»•*»»»•»»»»*»»»»»*»»*» 




3A139150 




07D* 





62FF 




A60C 


LDX 


2 


-1 


LD XR 2 WITH -1 




3A139160 




07D5 





CO 38 






LD 




N603 


LD /FFFF 




3A139170 




0706 





C600 


080C 




LD 


L2 


N601 


LO ADOR OF N601 £ XR 


2 


3A139180 




07D8 





F032 






EOR 




N600 


ZERO WITH ADDR OF N600 


3A 139 190 




07D9 





*C18 


07DE 




BSC 


L 


G60Ct£- 


BRANCH ON ZERO 




3A1 39200 




0708 





**00 


0F69 




BSI 


L 


FOOO 


XR 2 NOT LOAOEO 




3A139210 




07DD 





30DA 






DC 




/30DA 


ERR ID 




3A1 39220 




070E 





**00 


0FC4 


G60C 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A 1392 30 




07EO 





70F3 






MDX 




A60C 


LOOP 




3 A 139240 












»»»»***»*»»»»«»»»»»»»»»»»»»»•»»»»»»»»»»*»»»»» 




3A 139250 




07E1 





63FF 




A60E 


LDX 


3 


-1 


LD XR 3 WITH -1 




3A 139260 




07E2 





C02B 






LD 




N603 


LO /FFFF 




3A139270 




07E3 





C700 


080C 




LD 


L3 


N601 


LD ADDR OF N601 £ XR 


3 


3A1 39280 




07E5 





F025 






EOR 




N600 


ZERO WITH ADDR OF N600 


3A 139290 




07E6 





*C18 


07EB 




BSC 


L 


&60E.C- 


BRANCH ON ZERO 




3A 139 300 




07E8 





**00 


0F69 




BSI 


L 


FOOO 


XR 3 NOT LOAOED 




3A139310 




07EA 





30DB 






DC 




/300B 


ERR 10 




3A1 39320 




07EB 





**00 


0FC4 


G60E 


BSi 


L 


F005 


CK LOCK ON ERROR 




3A139330 




07E0 





70F3 






MDX 




A60E 


LOOP 




3A1 393*0 












*»»*»***»»*»*»»*»»»»*»»***»»***»»»»«*»»»«»»»» 




3A 139 350 




07EE 





6500 


0001 


B600 


LDX 


LI 


1 


LD XR 3 WITH CI 




3A 139360 




07F0 





CO ID 






LD 




N603 


LD /FFFF 




3A 139370 




07F1 





C500 


080C 




LD 


LI 


N601 


LD AODR OF N601 £ XR 


1 


3A 139 380 




07F3 





F019 






EOR 




N602 


ZERO WITH ADDR OF N602 


3A 139 390 




07F* 





4C18 


07F9 




BSC 


L 


J600tt- 


BRANCH ON ZERO 




3A1 39*00 




07F6 





4400 


0F69 




BSI 


L 


FOOO 


LONG FORM LDX-FAILEO 




3A139*10 




07F8 





300C 






OC 




/30DC 


ERR ID 




3A 139*20 




07F9 





4400 


OFC* 


J 600 


BSI 


L 


F005 


CK LOCK ON ERROR 




3A 139*30 




07FB 





70F2 






MDX 




B600 


LOOP 




3A1 39**0 












**»»»***»»»***»»«»»»»»*»*♦*»»»*»*»»**»»»»»**» 




3A 139*50 




02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 




PROG ID 


03A1-1 


*15*9C 


' 415490C 


419643 


420403 *20*03A 
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07FC 





6780 


OBOE 


B602 


LOX 


13 


N603 


LD XR 3 WITH /FFFF 


3A1 39460 






07FE 





CO 10 






LD 




N604 


LD /0001 


3A 139470 






07FF 





C700 


080C 




LO 


L3 


N601 


LD ADDR OF N601 £ XR 3 


3A1 39480 






0801 





F009 






EOR 




N600 


ZERO WITH ADDR OF N600 


3A 139490 






0802 





4C18 


0807 




BSC 


L 


J602t£- 


BRANCH ON ZERO 


3A139500 






0804 





4400 


OF 69 




BSI 


L 


FOOO 


INDIRECT LOX FAILEO 


3*139510 






0806 





3000 






DC 




/30DD 


ERR 10 


3A1 39520 






0007 





4400 


0FC4 


J602 


esi 


L 


F005 


CK LOCK ON ERROR 


3A139530 






0809 





70F2 






MDX 




B602 


LOOP 


3A1 39540 






080A 





7005 






MOX 




A640 


EXIT TO NEXT ROUTINE 


3A139550 






0806 





080B 




N600 


OC 




N600 




3 Al 39560 






ObOC 





080C 




N601 


DC 




N601 




3A139570 






0800 





0800 




N602 


DC 




N602 




3A139580 






080E 





FFFF 




N603 


DC 




/FFFF 




3A139590 






080F 





0001 




N604 

* 
• 
* 


DC 




/0001 

TEST 


OF STX OPERATION 


3A1 39600 
3A139610 
3A139620 
3A139630 














»»»*»»»»*»*»***»*»*»*»•»****»»»»*»**»»**»»»** 


3A1 39640 






»»»»»•»••»»»»•»»»»••»•*»»»*«*»»»•»*•*»*»***»»****»»»*»**•*******»****»» 


3A 139650 






CORE 




OAT* 


> OR 


»LA- 


OPER- 








3*139660 






AOOR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANOS 


C REMARKS IDtSEO* AT RIGHT 


3A139670 






»»»»»»•»»•»»»»»»»»*»*»•»***•»»»*»»#»»»»*»*»*»»*******»****»**»********* 


3A 139680 






0810 





C060 




A640 


LD 




N644 


LO /FFFF 


3A 139690 






0811 





D069 






STO 




N640 


SAVE 


3A1 39700 






0812 





COFF 




H640 


LO 




H640 


LO /COFF 


3*139710 






0813 





6867 






STX 




N640 


STORE INST REG AT N640 


3A1 39720 






0814 





FOFO 




K640 

• 


EOR 




H640 


CK THAT ACC MAS NOT 
* RESET BY STX 


3A139730 

3A139740 






0815 





4C18 


081D 




BSC 


L 


G640,t- 


BRANCH ON ZERO 


3A139750 






0817 





4400 


0F69 




BSI 


L 


FOOO 


ACC GONE AFTER STX 


3A139760 






0819 





3167 






DC 




/3167 


ERR ID 


3A139770 






081A 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 39780 






081C 





70F3 






MDX 




A640 




3A139790 






0810 





C050 




G640 


LO 




N640 


CK THAT STX STORED CORECT 


3A139800 






081E 





F05D 






EOR 




N642 




3A 139810 






081F 





4C18 


0824 




BSC 


L 


G641,t- 


BRANCH ON ZERO 


3A139820 






0821 





4400 


0F69 




BSI 


L 


FOOO 


I CTR NOT STORED 


3 A 139830 






0823 





300 E 






OC 




/30DE 


ERR ID 


3*139840 






0874 





4400 


0FC4 


G641 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 139850 






0826 





70E9 






MOX 




A640 


LOOP 


3A1 39860 














»***»»**»*»*»»*»*»»»»»»*»»***»*****»****»•»»» 


3A 139870 






0827 





C056 




A642 


LO 




N644 


LO /FFFF 


3A1 39880 






0828 





DO 52 






STO 




N640 


SAVE 


3A 139890 






0829 





6100 






LDX 


1 





LO XR 1 MITH /OOOO 


3 Al 39900 






082* 





6950 






STX 


1 


N640 


STORE CXXR la AT N640 


3A139910 






082B 





C04F 






LD 




N640 


LD CSN640O 


3A1 39920 






082C 





4C18 


0831 




BSC 


L 


G642.C- 


BRANCH ON ZERO 


3A139930 






082E 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 NOT STORED 


3A1 39940 






0830 





30 DF 






DC 




/30DF 


ERR ID 


3A139950 






0831 





4400 


0FC4 


G642 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 39960 






0833 





70 F3 






MDX 




A642 


LOOP 


3A139970 














*»»»»»**»»»»•»»»»»»*»»»»»»»»*»*»**»****»»*»»* 


3A1 39980 






0834 





C049 




A644 


LD 




N644 


LD /FFFF 


3A139990 






0835 





D045 






STO 




N640 


SAVE 


3*140000 






0836 





6200 






LDX 


2 





LD XR 2 NITH /OOOO 


3*140010 






0837 





6A43 






STX 


2 


N640 


STORE CXXR 2a AT N640 


3A1 40020 






0838 





C042 






LD 




N640 


LO CSN640O 


3A 140030 






0839 





4C18 


083E 




BSC 


L 


G644, t- 


BRANCH ON ZERO 


3*140040 






083B 





4400 


0F69 




BSI 


L 


FOOO 


XR 2 NOT STORED 


3A 140050 






083D 





30E0 






DC 




/30E0 


ERR ID 


3*140060 






083E 





4400 


0FC4 


G644 


BSI 


L 


F005 


CK LOCK ON ERROR 


3*140070 






0840 





70F3 






MDX 




A644 


LOOP 


3*140080 














»»»»»»»»»»*»**»»**»»*»»**••»•»»»»»»»*»»»«»»»» 


3A 140090 






0841 





C03C 




A646 


LD 




N644 


LD /FFFF 


3*140100 






0842 





0038 






STO 




N640 


SAVE 


3A140110 






0843 





6300 






LDX 


3 


. 


LO XR 3 NITH /OOOO 


3A140120 






0844 





6B36 






STX 


3 


i N640 


STORE CXXR 3D AT N640 


3A 140130 




DATE 


02JAN66 l 


91MAY66 


15N0V66 


15FEB68 26AUG68 


PROG 10 


03A1-1 


EC NO. 


415490 


V15490C 


419643 


420403 420403A 
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0845 
0846 
0848 
084* 
084B 
084D 

084E 
084F 
0850 
0851 
0852 
0853 
0854 
0856 
0858 
0859 
08 5B 

085C 
065D 
085E 
085F 
0860 
0861 
0862 
0864 
0866 
0867 
0869 



C035 

4C18 084B 
4400 0F69 
30E1 

4400 0FC4 
70F3 

C02E 
002 B 
61 FF 
6929 
C028 
F02A 

4C1B 0859 
4400 0F69 
30 E2 

4400 0FC4 
70F2 

CO 20 

D010 

62 FF 

6A1B 

C01A 

F01C 

4C18 0867 

4400 OF 69 

30E3 

4400 0FC4 

70 F2 



G646 



LO N640 LO CZN640D 

BSC L G646.C- BRANCH ON ZERO 

BSI L FOOO XR 3 NOT STORED 

DC /30E1 ERR ID 

BSI L F005 CK LOCK ON ERROR 

MOX A646 LOOP 



A648 LD N643 LO /OOOO 

STO N640 SAVE 

LDX 1 -1 LD XR 1 WITH /FFFF 

STX 1 N640 STORE CXXR la AT N640 

LD N640 LD CXN640D 

EOR N644 ZERO WITH /FFFF 

BSC L G648.1- BRANCH ON ZERO 

BSI L FOOO XR 1 NOT STORED 

DC /30E2 ERR ID 

G648 BSI L F005 CK LOCK ON ERROR 

MOX A648 LOOP 

A64A LD N643 LD /OOOO 

STO N640 SAVE 

LDX 2 -1 LD XR 2 WITH /FFFF 

STX 2 N640 STORE CXXR 2n AT N640 

LD N640 LO CXN640D 

EOR N644 ZERO NITH /FFFF 

BSC L G64A.C- BRANCH ON ZERO 

BSI L FOOO XR 2 NOT STORED 

DC /30E3 ERR ID 

G64A BSI L F005 CK LOCK ON ERROR 

MDX A64A LOOP 



A64C LD N643 

STO N640 

LOX 3 -1 

STX 3 N640 

LD N640 

E OR N644 

BSC L G64C&- 

BS1 L FOOO 

DC /30E4 

BSI L F005 

MDX A64C 

LO N643 

STO N640 

MDX A660 

DC /OOOO 

DC K640 

DC /OOOO 

OC /FFFF 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION «BEL ATION FT OPERANDS C REMARKS ID£SEQ# AT RIGHT 

»»»»»»*»»»*»»**»»*»*■*•»**»•••**»»****»»»»»»»»»»*«**»»*»***»***»******** 



08 6A 
086B 
08 6C 
0860 
086E 
066F 
0870 
0872 
0874 
0875 
0877 
0878 
0879 
087A 
087B 
087C 
0870 
087E 



CO 12 

DOOF 

63FF 

6800 

COOC 

FOOE 

4C18 0875 

4400 0F69 

30E4 

4400 0FC4 

70 F2 

C004 

D001 

7004 

OOOO 

0814 

OOOO 

FFFF 



G64C 



N640 
N642 
N643 

N644 



LO /OOOO 

SAVE 

LD XR 3 WITH /FFFF 

STORE CXXR 3o AT N640 

LO CXN640O 

ZERO WITH /FFFF 

BRANCH ON ZERO 

XR 3 NOT STORED 

ERR 10 

CK LOCK ON ERROR 

LOOP 

LD /OOOO 

RESTORE N640 

EXIT TO NEXT 



TO /OOOO 

ROUTINE 



087F 
0880 
0881 
0882 
0883 
0884 
0885 
0887 
0889 
088A 
088C 
088D 
088E 
088F 



6100 A660 LDX 10 LD XR 1 WITH /OOOO 

6200 LDX 2 LD XR 2 WITH /OOOO 

6300 LOX 3 LO XR 3 WITH /OOOO 

61FF LDX 1 -1 LD XR 1 WITH /FFFF 

6A44 STX 2 N660 CK FOR DISTRUCTION OF 

C043 LD N660 OTHER INDEXES 

4C18 088A BSC L G660t€- BRANCH ON ZERO 

4400 0F69 BSI L FOOO XR 2 CHANGED 

3157 DC /3157 ERR ID 

4400 0F98 G660 BSI L FOOE CK LOCK ON ERROR 

70F2 MDX A660 LOOP 

6B3A STX 3 N660 STORE CXXR 3d AT N660 

C039 LD N660 LD CXN660D 

4C18 0894 BSC L G661.C- BRANCH ON ZERO 



3*140140 

3*140150 

3*140160 

3*140170 

3*140180 

3*140190 

3*140200 

3*140210 

3A140220 

3A 1402 30 

3*140240 

3*140250 

3*140260 

3*140270 

3*140280 

3*140290 

3*140300 

3*140310 

3*140320 

3*140330 

3*140340 

3*140350 

3*140360 

3*140370 

3*140380 

3A140390 

3A140400 

3*140410 

3A140420 

3A 140430 

3*140440 

3*140450 

3A140460 

3A140470 

3*140480 

3A 140490 

3*140500 

3*140510 

3*140520 

3A 140530 

3A140540 

3A 140550 

3A140560 

3A 140570 

3*140580 

3A 140590 

3*140600 

3*140610 

3A140620 

3A 1406 30 

3A 140640 

3A140650 

3*140660 

3A 140670 

3*140680 

3A 140690 

3*140700 

3A140710 

3A140720 

3A140730 

3*140740 

3A140750 

3A1 40760 

3A 140770 

3A140780 

3A140790 

3*140800 

3*140810 



DATE 
EC NO. 
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DATE 

EC NO. 



0891 





4400 


0F69 




BSI 


L 


FOOO 


XR 3 CHANGED 


3A140820 




0893 





3158 






DC 




/3158 


ERR ID 


3A140830 




089* 





4400 


0FC4 


G661 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A140B40 




0896 





70E8 






MDX 




A660 


LOOP 


3A 140 8 50 












»***»**»*»»»»*»»»»•»»«»»»»*»»»»*»»»*»»»»*»**» 


3A140B60 




0897 





6100 




A662 


LDX 


1 





LD XR 1 WITH /OOOO 


3A140870 




0898 





6200 






LOX 


2 





LO XR 2 WITH /OOOO 


3A140880 




0899 





6300 






LDX 


3 





LD XR 3 WITH /OOOO 


3A140890 




089A 





62FF 






LOX 


2 


-1 


LD XR 2 WITH /FFFF 


3A140900 




0B9B 





692C 






STX 


1 


N660 


STORE CXXR la AT N660 


3A140910 




089C 





C02B 






LO 




N660 


LD CSN660O 


3A140920 




0890 





4C18 


08A2 




BSC 


L 


G662.C- 


BRANCH ON ZERO 


3A140930 




089F 





4400 


OF 69 




BSI 


L 


FOOO 


XR 1 CHANGED 


3A140940 




08A1 





3159 






DC 




/3159 


ERR ID 


3A140950 




08A2 





4400 


0F98 


G662 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A140960 




08A4 





70F2 






MOX 




A662 


LOOP 


3A 140970 




08A5 





6B22 






STX 


3 


N660 


STORE CXXR 3 AT N660 


3A140980 




08A6 





C021 






LD 




N660 


LD CXN660O 


3A 140990 




08A7 





4C18 


08AC 




BSC 


L 


G663,C- 


BRANCH ON ZERO 


3A141000 




08A9 





4400 


0F69 




BSI 


L 


FOOO 


CK LOCK ON ERROR 


3A141010 




08AB 





315A 






DC 




/315A 


ERR ID 


3A141020 




08AC 





4400 


0FC4 


G663 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141030 




08AE 





70E8 






MOX 




A662 


LOOP 


3A141040 












•«•***••*****••*«*•••**«*«*«•**•**«**»*•***•• 


3A 141050 




08AF 





6100 




A664 


LOX 


1 





CK D I STRUCT ION OF 


3A141060 




08B0 





6200 






LDX 


2 





OTHER INDEXES 


3A141070 




08B1 





6300 






LDX 


3 





XR8S HAVE /OOOO 


3A141080 




08B2 





63FF 






LDX 


3 


-1 


LD XR 3 KITH /FFFF 


3A141090 




08B3 





6914 






STX 


1 


N660 


STORE CXXR la AT N660 


3A141100 




08B4 





C013 






LD 




N660 


LD CXN660O 


3A141110 




08B5 





4C18 


08BA 




BSC 


L 


G664 t E- 


BRANCH ON ZERO 


3A141120 




08B7 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 CHANGED 


3A141130 




08B9 





315B 






DC 




/315B 


ERR ID 


3A141140 




08BA 





4400 


0F98 


G664 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141150 




08BC 





70F2 






MOX 




A664 


LOpP 


3A141160 




08BD 





6A0A 






STX 


2 


N660 


STORE CXXR 2a AT N660 


3A141170 




08BE 





C009 






LD 




N660 


LD CXN660O 


3A141180 




08BF 





4C18 


08C4 




BSC 


L 


G665.C- 


BRANCH ON ZERO 


3A 14 1190 




08C1 





4400 


0F69 




BSI 


L 


FOOO 


XR 2 CHANGED 


3A141200 




08C3 





31 5C 






DC 




/315C 


ERR ID 


3A141210 




0PC4 





4400 


0FC4 


G665 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141220 




08C6 





70E8 






MOX 




A664 


LOOP 


3A141230 




08C7 





7001 






MDX 




A670 


EXIT TO NEXT ROUTINE 


3A141240 




08C8 





0000 




N660 


DC 









3A141250 












»»»*»*»•«*»»*»»*»»*»»*»»*»»»***»«»*»«*»**»*»* 


3A141260 




0BC9 





6110 




A670 


LDX 


1 


16 


LD XR 1 WITH /0010 


3A141270 




08CA 





C010 






LD 




N670 


LOAD ONE 


3A141280 




08CB 





4C18 


08D4 


G671 


BSC 


L 


6670, t- 


NOT BR FOR CORRECT OP 


3A141290 




08C0 





1001 




G672 


SLA 




1 




3A141300 




08CE 





7IFF 






MDX 


1 


-1 


-1 FROM CXXR 10 


3A141310 




08CF 





70FB 






MDX 




G671 




3A141320 




0800 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A141330 




0802 





70F6 






MOX 




A670 


LOOP 


3A141340 




0803 





7008 






MOX 




A680 


EXIT TO NEXT ROUTINE 


3A 14 1350 




0804 





4400 


0F69 


G670 


BSI 


L 


FOOO 


WRONG DECODE OF ZERO ACC 


3A 141 360 




0B06 





3169 






DC 




/3169 


ERR ID 


3A 14 1370 




0807 





4400 


0F98 




BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141380 




0809 





70 EF 






MOX 




A670 


LOOP 


3 A 14 1390 




OBOA 





70F2 






MDX 




G672 




3A141400 




080B 





0001 




N670 

• 
• 
• 


DC 




1 

TEST 


OF ADD OPERATION 


3A141410 
3A141420 
3A 14 1430 
3A141440 












*»***»»»*»»»»»****»***»***»**»♦»»*»»**»»»»**» 


3A141450 




»»»»»*»»»****«■»»»»**»**»***»*»*»**»*»»»****»»*******»»*»»*****»**»»**»* 


3A141460 




CORE 




DATA CR 


»LA- 


OPER- 








3A 14 1470 




AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


C REMARKS IDtSEQi AT RIGHT 


3A141480 




»******»»»»*»»*»»»*»*•»****»»*»»*»»*»•»»»•»»*»*«»»»»»»»#•»»»*»»»«»#•»»• 


3A141490 




02JAN66 01HAY66 


15N0V66 


15FEB68 26AUG68 


PROG 10 


03A1-1 


415490 415490C 


419643 


420403 420403A 
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08DC 





2002 




A 680 


LDS 




2 


SET i.ARRY ON 


3A141500 






0800 





C06E 






LO 




Nfc80 


LD /FFFF 


3*141510 






080E 





806E 






A 




N681 


A /OOOO 


3A141520 






08DF 





4C01 


08E2 




BSC 


L 


0680,0 


CK FOR OVERFLOW ON 


3AK1530 






08E1 





7003 






MDX 




H680 


OVERFLOW IS OFF 


3A141540 






08E2 





4400 


0F69 


G680 


BSI 


L 


FOOO 


OVERFLOW IS ON 


3A141550 






08E4 





30E5 






DC 




/3065 


ERR ID 


3A 141 560 






06E5 





4400 


0F98 


H680 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141570 






08E7 





70F4 






MDX 




A680 


LOCP 


3A141580 






08E8 





F063 






EOR 




N680 


CK IF ADO ZERO 


3A 14 1590 






08E9 





4C18 


08EE 




BSC 


L 


G682.C- 


* CHANGED ACC 


3*1*1600 






OBEB 





4400 


OF 69 




BSI 


L 


FOOO 


ADD 1 AND FAILED 


3A141610 






08ED 





30E6 






DC 




/30E6 


ERR ID 


3A141620 






08EE 





4400 


0FC4 


G682 


RSI 


L 


F005 


CK LOCK ON ERROR 


3A141630 






08F0 


.0 


70EB 






MDX 




A680 


LOOP 


3A141640 














»»»»*»*»»*»*»»»»»»»»»»»»»*»»**»»*»»**»»»»»*** 


3A141650 






08F1 





2000 




A6B4 


LDS 







SET C AND OF OFF 


3*1*1660 






08F2 





CO 59 






LD 




N680 


LD /FFFF 


3A141670 






08F3 





805A 






A 




N682 


A /0001 


3A141680 






08F4 





4C02 


08F9 




BSC 


L 


6684, C 


CK IF CARRY OCCUREO 


3A141690 






08F6 





*400 


OF 69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A141700 






08F8 





30 E7 






DC 




/30E7 


ERR 10 


3A141710 






08F9 





4400 


0F98 


G684 


bSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141720 






08FB 





70 FS 






MDX 




A684 


LOOP 


3A 14 17 30 






08FC 





4C18 


0901 




BSC 


L 


&686,£- 


BRANCH ON ZERO 


3A141740 






08FE 





*400 


0F69 




BSI 


L 


FOOO 


ADD FFFFC0001 FAILED 


3A141750 






0900 





30E8 






DC 




/30E8 


ERR ID 


3A141760 






0901 





4400 


0FC4 


G686 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141770 






0903 





70ED 






MDX 




A684 


LOOP 


3A141780 














•>•*•*»*••••**••••••••****«•***•«•«•*•••»•••• 


3A141790 






0904 





2000 




A688 


LDS 







SET C AND OF OFF 


3A141800 






0905 





C046 






LO 




N680 


LD /FFFF 


3A141810 






0906 





8045 






A 




N680 


A /FFFF 


3A141820 






0907 





4C02 


090C 




BSC 


L 


G668.C 


BR ON CARRY 


3A141830 






0909 





4400 


OF 69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A 141 840 






09 OB 





30 E9 






DC 




/30E9 


ERR ID 


3A141850 






090C 





44C0 


0F9B 


G688 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A141860 






090E 





70 F5 






MDX 




A688 


LOOP 


3A141870 






090F 





F042 






EOR 




N687 


ZERO WITH /FFFF 


3A141880 






0910 





4C18 


0915 




BSC 


L 


G68A.C- 


BRANCH ON ZERO 


3A 14 1890 






0912 





4400 


OF 69 




BSI 


L 


FOOO 


ADD FFFFCFFFF FAILED 


3A141900 






0914 





30 FA 






DC 




/30FA 


ERR ID 


3A141910 






0915 





4400 


0FC4 


G68A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A141920 






0917 





70 EC 






MDX 




A688 


LOOP 


3A141930 














*»»»»•»»•»»»»*»**»*»»*»«»»»»»»»«»»*»»»»•»»»»» 


3A141940 






0918 





2000 




A68C 


LDS 







SET C AND OF OFF 


3A 14 19 50 






0919 





C035 






LD 




N683 


LD /4000 


3A141960 






091A 





8034 






A 




N683 


A /4000 


3A141970 






091B 





4C01 


0920 




BSC 


L 


G68C.0 


BR IF OF NOT ON 


3A141980 






09 ID 





4400 


0F69 




BSi 


L 


FOOO 


OVERFLOW NOT ON 


3A 14 1990 






091F 





30EB 






DC 




/30EB 


ERR ID 


3A142000 






0920 





4400 


0F98 


G68C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A142010 






0922 





70F5 






MDX 




A68C 


LOOP 


3A142020 






0923 





F02C 






EOR 




N684 


ZERO WITH /8000 


3A 142030 






0924 





4C18 


0929 




BSC 


L 


G68E.E- 


BRANCH ON ZERO 


3A142040 






0926 





4400 


0F69 




BSI 


L 


FOOO 


ADD 4000C4000 FAILED 


3A142050 






0928 





30EC 






DC 




/30EC 


ERR ID 


3A142060 






0929 





4400 


0FC4 


G68E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A142070 






092B 





70EC 






MDX 




A68C 


LOOP 


3A142080 














*»**»*»*»»»»*»»»»»»»»*»»»»»»»«»»»»»»**♦»»*»»* 


3 A 142090 






092C 





2000 




B680 


LDS 







SET C AND OF OFF 


3A142100 






0920 





C022 






LD 




N6B4 


LD /8000 


3A 142 110 






092E 





8021 






A 




N684 


A /8000 


3A142120 






092F 





2823 






STS 




N688 


STORE C AND OF COND 


3 A 142 130 






0930 





4C18 


0935 




BSC 


L 


J680.C- 


BRANCH ON ZERO 


3A142140 






0932 





4400 


0F69 




BSI 


L 


FOOO 


ADD 8000C8000 FAILED 


3A142150 






0934 





30E0 






DC 




/30ED 


ERR ID 


3A142160 






0935 





4400 


0F9B 


J680 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A142170 




DATE 
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PAGE 


31A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SVSTE* 
CPU FUNCTION TEST 



PART NO. 2 19 120 A 
PAGE 32 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 32A 



0937 





70F4 




09 3B 





C01A 




0939 





F017 




09 3A 





4C18 


094B 


093C 





4C04 


0945 


093E 





4400 


0F69 


0940 





30EF 




0941 





4400 


0FC4 


0943" 





70EB 




0944 





700F 




0945 





4400 


OF 69 


0947 





30 EE 




0948 





4400 


0FC4 


094A 





70E1 




094B 





7008 




09 4C 





FFFF 




094D 





0000 




094E 





0001 




094F 





4000 




0950 





8000 




0951 





0003 




0952 





FFFE 




0953 





0000 





MDX 




B680 


LOOP 


LO 




N688 


LO C AND OF CONO 


EOR 




N686 


ZERO WITH /0003 


BSC 


L 


J682.C- 


BRANCH ON ZERO 


BSC 


L 


K682*E 


BR ON NOT EVEN 


BSI 


L 


FOOO 


CARRY NOT ON 


DC 




/30EF 


ERR ID 


esi 


L 


F005 


CK LICK ON ERROR 


MDX 




B680 


LOOP 


MDX 




A6C0 


EXIT TO NEXT ROUTINE 


BSI 


L 


FOOO 


OVERFLOW NOT ON 


DC 




/30EE 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




B680 


LOOP 


MDX 




A6C0 


EXIT TO NEXT ROUTINE 


DC 




/FFFF 




OC 




/OOOO 




DC 




/0001 




DC 




/4000 




DC 




/8G30 




DC 




/0003 




DC 




/FFFE 




DC 




/OOOO . 


STORAGE 



INDEXING TEST 



K682 



J682 



N680 
N681 
N682 
N683 
N684 
N686 
N6B7 
N6B8 
• 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS t REMARKS IDCSEOt AT RIGHT 

A6C0 LDX 1 -4 LD XR 1 WITH -4 

LO LI N6C4 LD CSN6C4CXR lo 

EOR N6C0 ZERO ACC IF CORRECT OP 

BSC L H6C0.Z BR IF NOT ZERO 

STX 1 N6C9 STORE C«R in AT N6C9 

LO N6C9 GET XR 1 VALUE 

EOR N6CA ZERO ACC IF CORRECT 

BSC L G6C0.C- BRANCH ON ZERO 

BSI L FOOO XR 1 LOADEO WRONG 

DC /30F0 ERR ID 

BSI L F005 CK LOCK ON ERROR 

MDX A6C0 LOOP 

MDX A6C2 EXIT TO NEXT ROUTINE 

H6C0 BSI L FOOO WRONG LOCATION 

OC /30F1 ERR ID 

G6C0 BSI L F005 CK LOCK ON ERROR 

MDX A6C0 LOOP 



0954 61FC 




0955 C500 


0900 


0957 F074 




0958 4C20 


0966 


095A 697A 




095B C079 




095C F079 




0950 4CI8 


0969 


09 5F 4400 


0F69 


0961 6 30F0 




0962 4400 


0FC4 


0964 70EF 




0965 7006 




0966 4400 


OF 69 


0968 30F1 




0969 4400 


0FC4 


096B 70E8 




09 6C 6204 




0960 C600 


09D0 


096F F064 




0970 4C20 


097E 


0972 6A62 




0973 C061 




0974 F062 




0975 4C18 


0981 


0977 4400 


0F69 


0979 30F2 




09 7 A 4400 


0FC4 


09 7C 70EF 




0970 7006 




097E 4400 


OF 69 


0980 30F3 




0981 4400 


0FC4 


0983 70E8 





A6C2 



H6C2 



G6C2 



LDX 

LO 

EOR 

BSC 

STX 

LD 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

MDX 

BSI 

DC 

BSI 

MDX 



2 
L2 



4 LD XR 2 WITH 64 

N6C4 LD CXN6C4CXR 2n 

N6CB ZERO ACC IF CORRECT 

H6C2tZ BR IF NOT ZERO 

N6C9 STORE XR 2 AT N6C9 

N6C9 GET XR 2 VALUE 

N6CB ZERO ACC IF CORRECT 

66C2tt- BRANCH ON Z RO 

FOOO XR 2 LOADED WRONG 

/30F2 ERR ID 

F005 CK LOCK ON ERROR 

A6C2 LOOP 

A6C4 EXIT TO NEXT ROUTINE 

FOOO WRONG LOCATION 

/30F3 ERR ID 

F005 CK LOCK ON ERROR 

A6C2 LOOP 



0984 6300 



A6C4 LDX 3 SET XR 3 TO ZERO 



OATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 
420403 



26AUG68 
420403A 



3A142180 

3A142190 

3A142200 

3A142210 

3A142220 

3*142230 

3A142240 

3A142250 

3A142260 

3A 142270 

3A142280 

3A142290 

3A 142 300 

3A142310 

3A142320 

3A142330 

3A142340 

3A142350 

3A142360 

3A 142370 

3A142380 

3A142390 

3A142400 

3A 1424 10 

3A142420 

3A 142430 

3A 142440 

3A142450 

3A142460 

3A 142470 

3A142480 

3A142490 

3A142500 

3A142510 

3A142520 

3A142530 

3A142540 

3A142550 

3A142560 

3A142570 

3A1425B0 

3A142590 

3A142600 

3A142610 

3A142620 

3A142630 

3A142640 

3A142650 

3A142660 

3A142670 

3A142680 

3A 142690 

3A142700 

3A142710 

3A142720 

3A142730 

3A142740 

3A142750 

3A142760 

3A142770 

3A142780 

3A 142 790 

3A1 42800 

3A142810 

3A142820 

3A142830 

3A142840 

3A 142850 
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0985 C700 09DO 




LO 


L3 


N6C4 


LD CXN6C4tXR 3d 




0987 F048 




EOR 




N6C4 


ZERO ACC IF CORRECT 




0988 4C20 0995 




BSC 


L 


H6C4.2 


BR IF NOT ZERO 




098A 6B4A 




STX 


3 


N6C9 


STORE XR 3 AT N6C9 




098B C049 




LD 




N6C9 


LD /OOOO 




09 8C 4C1.' 0998 




BSC 


L 


G6C4.1- 


BRANCH ON ZERO 




098E 4400 0F69 




BSI 


L 


FOOO 


XR 3 LOADED WRONG 




0990 30F4 




DC 




/30F4 


ERR ID 




0991 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 




0993 70F0 




MDX 




A6C4 


LOOP 




0994 7006 




MDX 




A6C6 


EXIT TO NEXT ROUTINE 




0995 4400 0F69 


H6C4 


BSI 


L 


FOOO 


WRONG LOCATION 




0997 30F5 




OC 




/30F5 


ERR ID 




0998 4400 0FC4 


G6C4 


BSI 


L 


F005 


CK LUCK ON ERROR 




099A 70E9 




MDX 




A6C4 


LOOP 






»»»*»»•»»»»•**»»»»»*»»»***»»»*»*»**»»*•»»***» 




099B 6301 


A6C6 


LDX 


3 


1 


SET XR 3 TO tl 




099C C700 09D0 




LD 


L3 


N6C4 


LD CXN6C46XR 3d 




099E F032 




EOR 




N6C5 


ZERO FOR CORRECT 0^ 




099F 4C20 09AD 




BSC 


L 


H6C6tZ 


BR IF NOT ZERO 




09A1 6B33 




STX 


3 


N6C9 


STORE XR 3 AT N6C9 




09 A2 CO 32 




LD 




N6C9 


LD CXN6C9D 




09A3 F034 




EOR 




N6CD 


ZERO ACC FOR CORRECT OP 




09A4 4C18 09BO 




BSC 


L 


&6C6.C- 


BRANCH ON ZERO 




09A6 4400 0F69 




BSI 


L 


FOOO 


XR 3 LOAOED WRONG 




09A8 30F6 




DC 




/30F6 


ERR ID 




09A9 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 




09AB 70EF 




MOX 




A6C6 


LOOP 




09AC 7006 




MDX 




A6C8 


EXIT TO NEXT ROUTINE 




09AD Q 4400 0F69 


H6C6 


BSI 


L 


FOOO 


WRONG LOCATION 




09AF 30F7 




OC 




/30F7 


ERR ID 




09B0 4400 0FC4 


G6C6 


BSI 


L 


F005 


CK LOCK ON ERROR 




09B2 70E8 




MDX 




A6C6 


LOOP 






»»**»»»»»»»»**»»»»*»*•»»»»»*»***»»*«****•**** 




09B3 63FF 


A6C8 


LOX 


3 


i -1 


SET XR 3 TO -1 




09B4 C780 09DA 




LD 


13 


i N6CF 


LD CXN6CF&XR 3d 




09B6 F019 




EOR 




N6C4 


ACC NOW ZERO 




09B7 4C20 09C5 




BSC 


L 


H6C8tZ 


BR IF NOT ZERO 




09B9 6B1B 




STX 


a 


t N6C9 


STORE XR 3 AT N6C9 




09 B A C01A 




LD 




N6C9 


LD CSN6C9Q 




09BB F01E 




EOR 




N6CF 


ZERO WITH /FFFF 




09BC 4C18 09C8 




BSC 


L 


G6C8tC- 


BRANCH ON ZERO 




09BE 4400 0F69 




BSI 


L 


FOOO 


XR 3-LOADED WRONG 




09C0 30FB 




DC 




/30F8 


ERR ID 




09C1 4400 0FC4 




BSI 


L 


F0C5 


CK LOCK ON ERROR 




09C3 70EF 




MDX 




A6C8 


LOOP 




09C4 7017 




MOX 




A6D0 


EXIT TO NEXT ROUTINE 




09C5 4400 0F69 


H6C8 


BSI 


L 


FOOO 


WRONG LOCATION 




09C7 30F9 




DC 




/30F9 


ERR ID 




09C8 4400 0FC4 


G6C8 


BSI 


L 


F005 


CK LOCK ON ERROR 




09CA 70E8 




MDX 




A6C8 


LOOP 




09CB 7010 




MDX 




A6D0 


EXIT TO NEXT ROUTINE 




09CC 09CC 


N6C0 


DC 




N6C0 






09CD 09CD 


N6C1 


DC 




N6C1 






09CE 09CE 


N6C2 


OC 




N6C2 






09CF 09CF 


N6C3 


DC 




N6C3 






09D0 09D0 


N6C4 


DC 




N6C4 






09D1 0901 


N6C5 


DC 




N6C5 






09D2 0902 


N6C6 


DC 




N6C6 






09D3 09D3 


N6C7 


DC 




N6C7 






09D4 09D4 


N6C8 


DC 




N6C8 






09D5 OOOO 


N6C9 


DC 




/OOOO 






09D6 FFFC 


N6CA 


DC 




/FFFC 






09D7 0004 


N6CB 


DC 




/0004 






0908 0001 


N6CD 


DC 




/0001 






09D9 09D0 




DC 




N6C4 






09DA FFFF 


N6CF 


DC 




/FFFF 






09DB 70D7 




MDX 




A6C8 


LOOP 


OATE 


02JAN66 01NAY66 


15N0V66 


15FE868 


26AUG6B 


EC NO. 


415490 415490C 


419643 


420403 


420403A 



3A142860 
3A142870 
3A142880 
3A142890 
3A142900 
3A 1429 10 
3A142920 
3A 1429 30 
3A142940 
3A142950 
3 A 142960 
3A142970 
3A142980 
3A142990 
3A1 43000 
3A143010 
3A 143020 
3A143030 
3A143040 
3A143050 
3A143060 
3A143070 
3A143080 
3A 143090 
3A143100 
3A143110 
3A143120 
3A143130 
3A143140 
3A143150 
3A143160 
3A143170 
3A143180 
3A143190 
3A143200 
3A 14 32 10 
3A143220 
, 3A143230 
3A143240 
3A 14 32 50 
3A143260 
3A 14 3270 
3A143280 
3A143290 
3A143300 
3A143310 
3A143320 
3A143330 
3A143340 
3A143350 
3A143360 
3A1433T0 
3A1 43380 
3A 143390 
3A143400 
3A143410 
3A143420 
3A143430 
3A143440 
3A 143450 
3A143460 
3A143470 
3A1434B0 
3A143490 
3A143500 
3A143510 
3A143520 
3A143530 
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»•»*»»•»•»•**»»»*»»*»*»»»»**»♦*»*»»»»«**»***»»»*»»********»»**«»******* 

CORE DATA OR »LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS ID£SEQ# AT RIGHT 

»»»»»**»»»»»«»»»»»»**»»»*»**»»»*»»**»»*»*«**»*»»»»*»****»»*♦»********** 



09DC 6500 09C0 



090E 
09DF 
09E0 
09E2 
09E4 
09E5 
09E7 



C1FF 
FOEC 

4C18 09E5 
4400 0F69 
3150 

4400 0FC4 
70F4 



A 600 

• 



H6D0 



LDX LI N6C1 



ID 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



-1 

N6C0 

H6D0tC- 

FOOO 

/3150 

F005 

A600 



LD XR 1 WITH ADDRESS 

* OF N6C1 

SHORT FORM INDEXING 

ZERO IF CORRECT 

BRANCH ON ZERO 

INDEXED LD INST. FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



«**••****•*•********•*******••***••*•******** 



09E8 6600 09C0 



09EA 
09EB 
09EC 
09EE 
09 FO 
09F1 
09F3 

09F4 
09F6 
09F7 
09F8 
09FA 
09FC 
09F0 
09FF 



OAOO 
OA01 
0A02 
0A03 
0A04 
0A06 
OA08 
OA09 
OAOB 



C201 
F0E2 

4C18 09F1 
4400 OF 69 
315E 

4400 0FC4 
70 F4 

6700 09CD 
C300 
F0D5 

4C18 09FD 
4400 0F69 
315F 

4400 0FC4 
70F4 



6102 
C0D6 
1101 
F0D3 

4C18 0A09 
4400 0F69 
3163 

4400 0FC4 
70 F4 



A6D? 



H6D2 



LOX L2 N6C1 LD XR 2 WITH ADDRESS 

* OF N6C1 

LD 2 1 LD CXOF ADDRESS IN XR 16 In 

EOR N6C2 ZERO IF CORRECT 

BSC L H602,£- BRANCH ON ZERO 

BSI L FOOO INDEXED LD INST. FAILED 

DC /315E ERR ID 

BSI L F005 CK LOCK ON ERROR 

MOX A6D2 LOOP 



A6D3 LOX L3 N6C1 LD XR 3 WITH ADO OF N6C1 

LD 3 LD CXOF ADO IN XR 3 t On 

EOR N6C1 ZERO IF CORRECT 

BSC L H603.E- BRANCH ON ZERO 

BSI L FOOO INDEXED LD INST. FAILEO 

DC /315F ERR ID 

H6D3 BSI L F005 CK LOCK ON ERROR 

MDX A6D3 LOOP 

ft******************************************** 

A6D5 LDX 12 LD XR 1 M1TH £2 

LD N6CD LD /0001 

SLA 1 1 NOW A#/0004 

EOR N6CB NOM Alt/0000 

BSC L H6D5.C- BRANCH ON ZERO 

BSI L FOOO INDEXED SLA FAILED 

DC /3163 ERR ID 

H6D5 BSI L F005 CK LOCK ON ERROR 

MDX A6DS LOOP 
ft******************************************** 



OAOC 
OAOD 
OAOE 
OAOF 
0A10 
0A12 
0A14 
0A15 
0A17 



6202 
C0C9 
1A01 
F0C8 

4C18 0A15 
4400 0F69 
3164 

4400 0FC4 
70 F4 



A606 



H6D6 



LDX 

LD 

SRA 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



LD /00004 

NOW AH/0001 

ZERO ACC 

ZERO WITH /0001 

BRANCH ON ZERO 

INDEXED SRA FAILEO 

ERR ID 

CK LOCK ON ERROR 

LOOP 



2 

N6CB 

1 

N6C0 

H606,£- 

FOOO 

/3164 

F005 

A6D6 
a******************************************** 
* 
• TEST INDEXED BSC 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS G REMARKS IDtSEQ* AT RIGHT 

0A18 6301 A6F0 LDX 3 1 LD XR 3 WITH £1 

COOE LO N6F1 LD CSOF LABEL N6Fln 

4F00 0A1D BSC L3 N6F0 BR TO CSN6F0CXR 3D 

3000 WAIT INDEXED BSC FAILED 

3000 N6F0 WAIT INDEXED BSC FAILED 

F009 EOR N6F1 CK FOR OISTROVED ACC 



0A19 
0A1A 
0A1C 
OAIO 
0A1E 



3A1 43540 

3A143550 

3A143560 

3A143570 

3A143580 

3A143590 

3A143600 

3A143610 

3A143620 

3A143630 

3 Al 43640 

3A 143650 

3A1 43660 

3A143670 

3A143680 

3A143690 

3A143700 

3A143710 

3A143720 

3 A 143730 

3A143740 

3A143750 

3A1 43760 

3A143770 

3A143780 

3A 143790 

3A143800 

3A143810 

3A143820 

3A 143830 

3 Al 43840 

3A143850 

3A143860 

3A143870 

3A143880 

3A 143890 

3A 143900 

3A143910 

3A143920 

3A 1439 30 

3A143940 

3A143950 

3A143960 

3A143970 

3A1 43980 

3A143990 

3A144000 

3A 1440 10 

3A144020 

3A 144030 

3A144040 

3A144050 

3A144060 

3A144070 

3A1 44080 

3A 144090 

3A144100 

3A144110 

3A144120 

3A 1441 30 

3A144140 

3A144150 

3A144160 

3A144170 

3A144180 

3A 144190 

3A144200 

3A144210 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490C 



15N0V66 
419643 



15FEB68 

420403 



26AUG68 
420403A 
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0A1F 





4C18 


0A24 




BSC 


L 


H6F0 t t- 


BRANCH ON ZERO 


0A21 





4400 


0F69 




BSI 


L 


FOOO 


ACC DISTROYED 


0A23 





3165 






OC 




/3165 


ERR ID 


0A24 





4400 


0FC4 


H6F0 


BSI 


L 


F005 


CK LOCK ON ERROR 


0A26 





70F1 






MOX 




A6F0 


LOOP 


0A27 





7001 






MDX 




A6F1 


EXIT TO NEXT ROUTINE 


0A28 





0A28 




N6F1 


DC 




N6F1 












»»»***»»»«»»»»»»*»»»»»»»*•»»**««*»»**»»»*»»•* 


0A29 





6201 




' A6F1 


LDX 


2 


1 


LO XR 2 WITH U 


0A2A 





4E80 


0A2D 




BSC 


12 


N6F2 


BR TO N6F2C1 INDIRECT 


0A2C 





7005 






MDX 




H6F1 


BSC FAILED 


0A2D 





7004 




N6F2 


MOX 




H6F1 


BSC FAILED 


0A2E 





0A31 






DC 




N6F3 




0A2F 





7002 






MDX 




H6F1 


BSC FAILEO 


0A30 





7001 






MDX 




H6F1 


BSC FAILED 


0A31 





7003 




N6F3 


MDX 




H6F2 




0A32 





4400 


OF 69 


H6F1 


BSI 


L 


FOOO 


BSC DID NOT BRANCH 


0A34 





3166 






DC 




/3166 


ERR ID 


0A35 





4400 


0FC4 


H6F2 


BSI 


L 


F005 


CK LOCK ON ERROR 


0A37 





70F1 






MDX 




A6F1 


LOOP 



0A38 





2000 




0A39 





C066 




0A3A 





9066 




0A3B 





2866 




0A3C 





F066 




0A3D 





4C18 


0A42 


0A3F 





4400 


OF 69 


0A41 





30FA 




0A42 





4400 


0F98 


0A44 





70F3 




0A45 





C05C 




0A46 





F05D 




0A47 





VC18 


0A4C 


0A49 





4400 


OF 69 


0A4B 





30 FB 




0A4C 





4400 


0FC4 


0A4E 





70 E9 




0A4F 





2000 




0A50 





C04F 




0A51 





9051 




0A52 





284F 




0A53 





F040 




0A54 





4C18 


OA59 


0A56 





4400 


0F69 


0A58 





30FC 




0A59 





4400 


0F98 


0A5B 





70F3 




0A5C 





C045 




0A5D 





F046 




0A5E 





4C18 


0A63 


0A60 





4400 


OF 69 


0A62 





30 FD 




0A63 





4400 


0FC4 


0A65 





70 E9 





* 

• TEST OF SUBTRACT OPERATION 

A700 LDS SET C ANO OF OFF 

LD N700 LD /OOOO 

S N701 S /0001 A NOW /FFFF 

STS N702 STORE CARRY IND. TO N702 

EOR N703 ZERO ACC IF CORRECT 

BSC L G700,£- BRANCH ON ZERO 

BSI L FOOO 0000 MINUS 0001 FAILED 

DC /30FA ERR ID 

G700 BSI L FOOE CK LOCK ON ERROR 

MOX A700 LOOP 

LD N702 LD CARRY INDICATION 

EOR N704 ZFRO IF CORRECT 

BSC L G702tC- BRANCH ON ZERO 

BSI L FOOO CARRY NOT ON 

DC /30FB ERR ID 

G702 BSI L F005 CK LOCK ON ERROR 

MDX A700 LOOP 



A704 



G704 



G706 



LDS 

LO 

S 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

LO 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 



SET C ANO OF OFFt 

N700 LD /OOOO 

N703 S ' /FFFF 

N702 STORE CARRY ON CONDITION 

N701 ZERO WITH /0001 

G704,£- BRANCH ON ZERO 

FOOO OOOO MINUS FFFF FAILED 

/30FC ERR ID 

FOOE CK LOCK ON ERROR 

A704 LOOP 

N702 LD CARRY COND FROM N702 

N704 ZERO ACC IF CORRECT 

G706,t- BRANCH ON ZERO 

FOOO CARRY NOT SET 

/30FD ERR ID 

F005 CK LOCK ON ERROR 
LOOP 



A704 

*»»»»»»»»»«»»»♦*»»»»»*»»*»»»•*»««*•*»»»»»»•*» 
***»*»»**»••»»»»»»»*»**»»»»*»••»»»»»»**♦***»*»**»**»***»*»»•»*»»•»****• 
CORE DATA OR *LA- OPER- 
ADDR INSTRUCTION *BEL ATION FT OPERANDS C REMARKS IDtSEQ* AT RIGHT 

0A66 2000 A708 LDS SET C ANO OF OFF 

0A67 C03D LD N705 LD /8000 

0A68 9038 i N701 S /0001 



3A144220 
3A144230 
3A144240 
3A 144250 
3A144260 
3A 1442 70 
3A144280 
3A 144290 
3A144300 
3A144310 
3A144320 
3A 144330 
3A144340 
3A144350 
3A144360 
3A 144370 
3A144380 
3A 144390 
3A144400 
3A 144410 
3A144420 
3A 144430 
3A144440 
3A144450 
3A144460 
3A 144470 
3A144480 
3A 144490 
3A144500 
3A144510 
3A144S20 
3A144530 
3A144540 
3 A 144550 
3A 144560 
3A 144570 
3A144560 
3A 144590 
3A 144600 
3A 144610 
3 A 144620 
3A 144630 
3A144640 
3A 144650 
3 A 144660 
3A 144670 
3A144680 
3A 144690 
3A144700 
3A 144710 
3A144720 
3A 144730 
3A1 44740 
3 A 144750 
3A144760 
3A 144770 
3 A 144780 
3A 144790 
3A144800 
3A 144810 
3A144820 
3A144830 
3A144840 
3A1448S0 
3A144860 
3A 144870 
3A144880 
3 A 144890 



DATE 
EC NO. 
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0A69 





2838 






STS 




N702 


SAVE C (OF CONDITION 


3A144900 






01 6A 





F03C 






EOR 




N707 


ZERO ACC IF CORRECT OP 


3A 1449 10 






0A6B 





4C18 


OA70 




BSC 


L 


G708.C- 


BRANCH ON ZERO 


3A144920 






0A60 





4400 


0F69 




BSI 


L 


FOOO 


8000 MINU 0001 FAILED 


3A144930 






OAbF 





30FE 






DC 




/30FE 


ERR 10 


3A144940 






0A70 





4400 


0FS8 


G708 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A144950 






0A72 





70F3 






MDX 




A708 


LOOP 


3 A 1449 60 






0A73 





C02E 






LO 




N702 


LD STORE CARRY CONOITION 


3A 144970 






0A74 





F02C 






EOR 




N701 


ZERO IF CORRECT 


3A144960 






0A75 





4C18 


0*7 A 




BSC 


L 


G70A.6- 


BRANCH ON ZERO 


3A144990 






0A77 





4400 


0F69 




BSI 


L 


FOOO 


OVERFLOW NOT SET 


3A145000 






0A79 





30 FF 






DC 




/30FF 


ERR ID 


3A145010 






0A7A 





4400 


0FC4 


G70A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A145020 






0A7C 





70E9 






MDX 




A708 


LOOP 


3A145030 














»»*»»»»*»**•**»•«*•»*•*••*»•»»»»*»»•*»»*»*•»* 


3A145040 






0A7D 





2000 




A70C 


LOS 







SET C AND OF OFF 


3A145050 






0A7E 





C021 






LD 




N700 


LD /OOOO 


3A145060 






0A7F 





9025 






S 




N705 


S /8000 


3A145070 






0A80 





2821 






STS 




N702 


STORE C £ OF CONDITION 


3A1450B0 






0A81 





F023 






EOR 




N705 


ZERO ACC IF CORRECT 


3A 145090 






0AB2 





4C18 


OA87 




BSC 


L 


G70C,£- 


BRANCH ON ZERO 


3A145100 






0AB4 





4400 


OF 69 




BSI 


L 


FOOO 


OOOO MINUS 8000 FAILED 


3A 145 110 






0A86 





3100 






DC 




/3100 


ERR ID 


3A145120 






0A87 





4400 


0F98 


G70C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 145 130 






0AB9 





70F3 






MDX 




A70C 


LOOP 


3A145140 






0A8A 





CO 17 






LO 




N702 


LO CON OF CtOF 


3A145150 






0A8B 





F01A 






EOR 




N706 


ZERO ACC IF CORRECT 


3A145160 






OABC 





4C18 


0A9C 




BSC 


L 


G70Ett- 


BRANCH ON ZERO 


3A145170 






0A8E 





C013 






LO 




N702 


LO CON OF C t OF 


3A1451B0 






OABF 





E011 






AND 




N701 


AND IN /0001 


3A 145 190 






0A90 





4C20 


0A99 




BSC 


L 


J70E.Z 


BR IF NOT ZERO 


3A145200 






0A92 





4400 


OF 69 




BSI 


L 


FOOO 


OVERFLOW NOT ON 


3A145210 






0A94 





3101 






DC 




/3101 


ERR ID 


3 Al 45220 






0A95 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A 145230 






0A97 





7065 






MDX 




A70C 


LOOP 


3A145240 






0A98 





700F 






MDX 




A740 


EXIT TO NEXT ROUTINE 


3A 1452 50 






0A99 





4400 


0F69 


J70E 


BSI 


L 


FOOO 


CARRY NOT ON 


3A145260 






0A9B 





3102 






DC 




/3102 


ERR ID 


3A145270 






0A9C 





4400 


0FC4 


670E 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A145280 






0A9E 





700E 






MDX 




A70C 


LOOP 


3A145290 






0A9F 





7008 






MDX 




A740 


EXIT TO NEXT ROUTINE 


3A145300 






OAAO 





0000 




N700 


DC 




/OOOO 




3A 1453 10 






0AA1 





0001 




N701 


DC 




/0001 




3A145320 






0AA2 





0000 




N702 


DC 




/OOOO 


STORAGE 


3A145330 






0AA3 





FFFF 




N703 


DC 




/FFFF 




3A145340 






0AA4 





0002 




N704 


DC 




/0002 




3A145350 






0AA5 





8000 




N705 


DC 




/8000 




3A145360 






0AA6 





0003 




N706 


DC 




/0003 




3A145370 






0AA7 





7FFF 




N707 

• 
• 
• 


DC 




/7FFF 

TEST 


OF ADO DOUBLE 


3A145380 
3A145390 
3A1 45400 
3A145410 














•*•*»»•*****•••»• *•****•••*•***••*•*••*•****« 


3A145420 






***»»»*****»*»»**** **»***»*****•»»*• **•*•«*•«•*»•*••**••«*•**«**•**•••• 


3A145430 






CORE 




DATA OR 


• LA- 


OPER- 








3A145440 






ADDR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


£ REMARKS ID£SEQ« AT RIGHT 


3A 145450 






••»•*•**•••**•••*•**•••*•**•*••••••*•*•***••••«*•***•••*••***•••**••*•* 


3A145460 






0AA8 





2000 




A740 


LOS 







SET C AND OF OFF 


3A 145470 






0AA9 





CCOO 


0B6E 




LDD 


L 


N742 


LD A»/FFFF Q#/FFFF 


3A145480 






OAAB 





8C00 


OB 70 




AD 


L 


N744 


A /OOOO /OOOO 


3A145490 






OAAD 





2C00 


0B6D 




STS 


L 


N740 


STORE CON. OF C £ OF 


3A145500 






OAAF 





F400 


0B6E 




EOR 


L 


N742 




3A145510 






0AB1 





4C18 


0AB6 




BSC 


L 


G740,£- 


BRANCH ON ZERO 


3A145520 






0AB3 





4400 


OF 69 




BSI 


L 


FOOO 


AD FFFF£0000 A FAILEO 


3A145530 






OABS 





3103 






DC 




/3103 


ERR 10 


3A145540 






0AB6 





4400 


0F98 


G740 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A145550 






OABS 





70EF 






MDX 




A740 


LOOP 


3A145560 






0AB9 





1800 






RTE 




16 




3A 145570 




DATE 
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OABA 





F400 


0B6E 


OABC 





4C18 


0AC1 


OABE 





4400 


OF 69 


OACO 





3104 




0AC1 





440C 


0F98 


0AC3 





70 E4 




0AC4 





C400 


0B6D 


0AC6 





4C1B 


0AD4 


0AC8 





4C04 


0A01 


OACA 





4400 


0F69 


OACC 





3105 




OACD 





4400 


0FC4 


OACF 





70D8 




OADO 





7003 




0AD1 





4400 


OF 69 


0AD3 





3106 




OA04 





4400 


0FC4 


0A06 





7001 




0AD7 





2000 




0AD8 





CCOO 


0B72 


OADA 





8C00 


0B6E 


OAOC 





2C00 


0B6D 


OADE 





4C18 


0AE3 


OAEO 





4400 


0F69 


0AE2 





3107 




0AE3 





4400 


0F98 


0AE5 





70F1 




0AE6 





1800 




0AE7 





4C18 


OAEC 


0AE9 





4400 


OF 69 


OAEB 





3108 




OAEC 





4400 


0F98 


OAEE 





70E8 




OAEF 





C400 


0B6D 


0AF1 





F0B2 




0AF2 





4C18 


OBOO 


0AF4 





4C04 


OAFD 


OAF 6 





4400 


OF 69 


0AF8 





3109 




0AF9 





4400 


0FC4 


OAFB 





70DB 




OAFC 





7003 




OAFO 





4400 


OF 69 


OAFF 





310A 




OBOO 





4400 


0FC4 


0B02 





70D4 





G742 



H744 



G744 



A746 



G746 



G748 



EOR 


L 


N742 




BSC 


L 


G742.C- 


BR ON ZERO 


BSI 


L 


FOOO 


AD FFFF£0000 FAILED 


DC 




/3104 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MOX 




A740 


LOOP 


LD 


L 


N740 


CONDITION OF C £ OF 


BSC 


L 


G744 t £- 


BRANCH ON ZERO 


BSC 


L 


H744.E 


BR IF NOT EVEN 


BSI 


L 


FOOO 


CARRY ON 


DC 




/3105 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




A740 


LOOP 


MDX 




G744 




BSI 


L 


FOOO 


OVFLO ON 


OC 




/3106 


ERR 10 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




A740 


LOOP 


■»»»»»»»«»»*»»»»*»*»»»»»»»»**»»»»*»**»»» 


LDS 







SET C AND OF OFF 


LOD 


L 


N746 


LD A«/0000 0»/0001 


AD 


L 


N742 


A /FFFF /FFFF 


STS 


L 


N740 


STORE COND OF C AND OF 


BSC 


L 


G746t£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


AD 0000£FFFF A FAILEO 


OC 




/3107 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MDX 




A746 


LOOP 


RTE 




16 


INTERCHANGE A AND Q 


BSC 


L 


G748,£- 


BRANCH ON ZERO 


BSI 


L 


FOOO 


AD 010UFFFF FAILEO 


DC 




/3108 


ERR ID 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


MDX 




A746 


LOOP 


LD 


L 


N740 


LD COND OF C AND OF 


EOR 




N704 


CHECK FOR CARRY 


BSC 


L 


G74A,£- 


ZERO* C AND OF OK 


BSC 


L 


H74A.E 


CHECK FOR OVERFLOW »B15o 


BSI 


L 


FOOO 


CARRY NOT ON 


DC 




/3109 


ERR 10 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




A746 


LOOP 


MDX 




G74A 




BSI 


L 


FOOO 


OVFLO ON 


DC 




/310A 


ERR ID 


BSI 


L 


F005 


CK LOCK ON ERROR 


MDX 




A746 


LOOP 



H74A 
G74A 

CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION »BEL ATION FT OPERANDS C REMARKS IDtSEQA AT RIGHT 

»**»»»»*»*»»♦»*»»»»»»»»»»•»»**••»***»»»***»»»»»»»»»»»»»*»***»*»»»*»**** 



0B03 
0B04 
0B05 
0B06 
0B07 
0B08 
OBOA 
OBOC 
OBOD 
OBOF 
0B10 
0B11 
0B12 
0B14 
0B16 
0B17 



2000 
C869 
8868 
2866 
F066 

4C18 OBOD 
4400 OF 69 
310B 

4400 0F98 
70F3 
18D0 
F062 

4C18 0B17 
4400 OF 69 
310C 
4400 0F98 



A74C 



G74C 



G74E 



LOS 

LDO 

AD 

STS 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 



SET C AND OF OFF 

N742 LO A«/FFFF 0»/FFFF 

N742 A /FFFF /FFFF 

N740 STORE C AND OF COND 

N742 ZERO WITH /FFFF 

G74Ct£- BRANCH ON ZERO 

FOOO AD FFFF£FFFF ACC FAILED 

/310B ERR ID 

FOOE CK LOCK ON ERROR 

A74C LOOP 

16 INTERCHANGE A AND 

N74A ZERO WITH /FFFF 

G74E.£- BRANCH ON ZERO 

FOOO AD FFFF£FFFF FAILED 

/310C ERR ID 

FOOE CK LOCK ON ERROR 



3A145580 

3A145590 

3A 145600 

3A145610 

3A145620 

3A145630 

3A145640 

3A145650 

3A145660 

3A 14 5670 

3A145680 

3A 14 5690 

3A145700 

3A145710 

3A145720 

3A145730 

3A145740 

3A145750 

3A145760 

3A145770 

3A145780 

3A145790 

3A145800 

3A145810 

3A145820 

3A145830 

3A145B40 

3A145850 

3A145860 

3A145870 

3A145880 

3A145890 

3A145900 

3A145910 

3A145920 

3A145930 

3A145940 

3A145950 

3 A 145960 

3A 145970 

3A1459B0 

3A 145990 

3A146000 

3A146010 

3A146020 

3A146030 

3A146040 

3A 146050 

3A146060 

3A 146070 

3A146080 

3A 146090 

3A146100 

3A 146 110 

3A146120 

3A146130 

3A146140 

3A 146 150 

3A146160 

3A146170 

3A146180 

3A146190 

3A146200 

3A 1462 10 

3A146220 

3A 146230 

3A146240 

3A146250 
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0B19 70E9 




MOX 




A74C 


LOOP 


3A146260 






0B1A C052 




LD 




N740 


CONDITION OF C AND OF 


3A146270 






0B1B F05C 




EOR 




N748 


CHECK FOR OVERFLOW 


3A146280 






0B1C 4C18 0B2A 




BSC 


L 


J740.6- 


BRANCH ON ZERO 


3A146290 






0B1E 4C04 0B27 




BSC 


L 


K740tE 


CHECK FOR CARRY 


3A146300 






0B20 4400 0F69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A146310 






0B22 310E 




DC 




/310E 


ERR ID 


3A146320 






0B23 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A146330 






OB 2 5 7000 




MOX 




A74C 


LOOP 


3A146340 






0B26 7003 




MDX 




J740 




3A 146350 






OB27 4400 0F69 


K740 


BSI 


L 


FOOO 


OVFLO ON 


3A146360 






0B29 3100 




DC 




/3100 


ERR 10 


3A 146370 






0B2A 4400 0FC4 


J740 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A146380 






0B2C 70 06 




MDX 




A74C 


LOOP 


3A146390 








«*•«*****•*******•**•*•*••****••***•••*•*•*•* 


3A146400 






0B20 2000 


B742 


LOS 







SET C ANO OF OFF 


3A146410 






0B2E C847 




LOO 




N74C 


LD Ai/FFFF 08/7FFF 


3A146420 






0B2F 883E 




AD 




N742 


A /FFFF /FFFF 


3A 146430 






0B30 283C 




STS 




N740 


STORE CONDITION OF C C OF 


3A146440 






0B31 F03C 




EOR 




N742 




3A 146450 






0B32 4C18 0B37 




BSC 


L 


J742tt- 


BRANCH ON ZERO 


3A146460 






06 34 4400 0F69 




BSI 


L 


FOOO 


AO FFFFtFFFF A FAILED 


3A 146470 


^ 




0B36 310F 




DC 




/310F 


ERR ID 


3A146480 






OP 37 4400 0F98 


J742 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 146490 






0B39 70F3 




MDX 




B742 


LOOP 


3A146500 






0B3A 1800 




RTE 




16 


INTERCHANGE A ANO Q 


3A146510 






0B3S F039 




EOR 




N74B 




3A146520 






0B3C 4C18 0B41 




BSC 


L 


J744,£- 


BRANCH ON ZERO 


3A146530 






0B3E 4400 0F69 




BSI 


L 


FOOO 


AO /7FFFCFFFF /FAILED 


3A146540 






0B40 3110 




OC 




/3110 


ERR ID 


3A 146550 






0B41 4400 0F98 


J 744 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A146560 






0B43 70E9 




MDX 




B742 


LOOP 


3A146570 






0B44 C028 




LO 




N740 


LD C ANO Of? CONDITION 
ZERO IF CARRY MAS ON 


3A1465B0 






0B45 F032 




EOR 




N748 


3A 146590 






0B46 4C1B 0B54 




BSC 


L 


J746.C- 


BRANCH ON 2ER0 


3A146600 






0B48 4C04 0B51 




BSC 


L 


K746.E 


CHECK FOR /CARRY 


3A 146610 






0B4A 4400 0F69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A146620 






0B4C 3112 




DC 




/3112 


ERR 10 


3A 146630 






0B40 4400 0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A146640 






0B4F 7000 




MDX 




6742 


LOOP 


3A146650 






OB SO 7003 




MDX 




J746 




3A 146660 






0B51 4400 0F69 


K746 


BSI 


L 


FOOO 


OVFLO ON 


3A146670 






0853 3111 




DC 




/3111 


ERR 10 


3A1466B0 






0B54 4400 0FC4 


J746 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 146690 






0B56 7006 




MDX 




B742 


LOOP 


SA146700 








»»•»»*»»»»»»»»»»**»*»»»»*»»*•»•»»»»»*»*«»»»** 


3A146710 






»**«»****»»»»*»»»*»»»*»*»*»*»*»**»*»**»»****»»**»»*»•«*»*:»»»»»»»*«»*»*» 


3A146720 






CORE DATA OR 


»LA- 


OPER- 








3A146730 




• 


ADOR INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS £ REMARKS IDCSEQ* AT RIGHT 


3A146740 






••«•*•*•••••***••••••••«••••*•*••*•••*«•*•*****•*****•*•**•*•••*•*•**•• 


3A146750 






0B57 C81A 


B747 


LDD 




N746 


LD A*/0000 0#/0001 


3A1 46760 






0B5B B81A 




AD 




N747 


A /0001 /0001 


3A 146770 






0659 F019 




EOR 




N747 


ZERO ACC IF CORRECT OP 


3A146780 






0B5A 4C18 0B5F 




BSC 


L 


J748.E- 


BRANCH ON ZERO 


3A146790 






0B5C 4400 OF 69 




BSI 


L 


FOOO 


AO-OOD A REG FAILED 


3A146800 






0B5E 3113 




DC 




/3113 


ERR ID 


3A146B10 






085F 4400 0F98 


J748 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A146820 






0B61 70F5 




MDX 




B747 


LOOP 


3A 146830 






0B62 1800 




RTE 




16 


NOW Af/0002 Of/ OOOO 


3A146840 






0B63 F014 




EOR 




N748 


ZERO ACC IF CORRECT OP 


3A 146850 






0B64 4C18 0B69 




BSC 


L 


J74A.C- 


BRANCH ON ZERO 


3A1 46860 






0B66 4400 0F69 




BSI 


L 


FOOO 


AO-ODO REG FAILED 


3A 146870 






0B68 3114 




DC 




/3114 


ERR 10 


3A146880 






OB 69 4400 0FC4 


J74A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 146890 






0B6B 70EB 




MDX 




8747 


LOOP 


3A146900 






0B6C 700C 




MOX 




A780 


EXIT TO NEXT ROUTINE 


3A146910 






0B6D 0000 


N740 


OC 




/OOOO 




3A146920 






0B6E 0000 




BSS 


E 






3A146930 




DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 


420403A 
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0B6E 


FFFF 




N742 


DC 




/FFFF 




3A1 46940 






0B6F 


FFFF 






DC 




/FFFF 




3A 146950 






0B70 


0000 




N744 


DC 




/OOOO 




3A 146960 






0B71 


0000 






DC 




/OOOO 




3A 146970 






0B72 


0000 




N746 


DC 




/OOOO 




3A146980 






OB73 


0001 




N747 


DC 




/0001 




3A 146990 






0B74 


FFFE 




N74A 


DC 




/FFFE 




3A1 47000 






OB75 


7FFE 




N74B 


DC 




/7FFE 




3A147010 






0876 


FFFF 




N74C 


DC 




/FFFF 




3A147020 






0B77 


7FFF 






OC 




/7FFF 




3A147030 






0678 


0002 


- 


N748 

* 
• 
* 


DC 




/0002 


TEST SUB DOUBLE 


3A147040 
3A147050 
3A147060 
3A147070 












»»•»»»*»•»«»»»**»*»*»*«»»»*»**»«»»*»»»»»»*«»» 


3A1 47080 






OB 79 


2000 




A780 


LDS 







SET C AND OF OFF 


3A 14 7090 






0B7A 


C867 






LDD 




N782 


LD At/0000 0#/0000 


3A147100 






0B7B 


9868 






SD 




N784 


S /OOOO /0001 


3A147110 






0B7C 


2864 






STS 




N780 


STORE C AND OF CONDITION 


3A147120 






0B70 


F068 






EOR 




N786 


ZERO WITH /FFFF 


3A147130 






0B7E 


4C18 


0883 




BSC 


L 


G780»C- 


BRANCH ON ZERO 


3A147140 






0B80 


4400 


OF 69 




BSI 


L 


FOOO 


SD 0000-0000 ACC FAILED 


3A147150 






0B82 


3115 






DC 




/3115 


ERR !D 


3A147160 






0883 


4400 


0F98 


G780 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A147170 






0B85 


70F3 






MDX 




A780 


LOOP 


3A 147 180 






0886 


1800 






RTE 




16 


NOW Ai/FFFF Qft/OOOO 


3A147190 






0887 


F05E 






EOR 




N7B6 


ZERO WITH /FFFF 


3A1 47200 






0B88 


4C18 


0B8D 




BSC 


L 


G782tt- 


BR ON ZERO 


3A147210 






0B8A 


4400 


OF 69 




BSI 


L 


FOOO 


SD 0000-0001 FAILED 


3A1 47220 






OBSC 


3116 






DC 




/3116 


ERR 10 


3A147230 






OB 80 


4400 


0F98 


G782 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 47240 






0B8F 


70 E9 






MDX 




A780 


LOOP 


3A 147250 






0B90 


C050 






LO 




N780 


LD C AND OF CONDITION 


3A1 47260 






0B91 


F056 






EOR 




N788 


ZERO IF CARRY HAS ON 


3A147270 






0B92 


4C18 


OBAO 




BSC 


L 


G784,C- 


BRANCH ON ZERO 


3A147280 






0B94 


4C04 


0B90 




BSC 


L 


H784.E 


CHECK FOR CARRY 


3A147290 






0B96 


4400 


0F69 




BSI 


L 


FOOO 


CARRY NOT ON 


3A147300 






0B9B 


3117 






OC 




/3117 


ERR 10 


3A147310 






0899 


4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A147320 






0B9B 


7000 






MDX 




A780 


LOOP 


3A147330 






0B9C 


0~7003 






MOX 




G784 




3A147340 






0B9D 


4400 


OF 69 


H784 


BSI 


L 


FOOO 


OVFLO ON 


3A147350 






0B9F 


3118 






DC 




/3118 


ERR ID 


3A147360 






OBAO 


4400 


0FC4 


G784 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A147370 






0BA2 


70D6 






MOX 




A780 


LOOP 


3A147380 












»*»*»»»»»*»»***•»*****»•*»***»»•»»«»»»»»»*•»» 


3A147390 






»*•»»*»***»»»»»»»»♦**•»*»*»**»»**»»»»****»***»»****»*»*»*»**»»»*****»** 


3A147400 






CORE 


DATA OR 


*LA- 


OPER- 








3A147410 






AODR 


INSTRUCTION 


• BEL 


ATION 


FT 


OPERANDS 


C REMARKS IDESEO* AT RIGHT 


3A147420 






*••••••••»*#••*•*•*•**•**•******••***•*****•••**•»***•••***•*•****•*** 


3A 14 7430 






0BA3 


2000 




A786 


LDS 







SET C AND OF OFF 


3A1 47440 






0BA4 


C83D 






LOO 




N782 


LD A#/0000 Oi/0000 


3A147450 






0BA5 


9840 






SD 




N786 


/FFFF /FFFF 


3A1 47460 






0BA6 


4C18 


OBAB 




BSC 


L 


G786.C- 


BRANCH ON ZERO 


3A147470 






OBAB 


4400 


0F69 




BSI 


L 


FOOO 


SD OOOO-FFFF A FAILED 


3A1 47480 






OBAA 


3119 






DC 




/3119 


ERR ID 


3A147490 






OBAB 


4400 


0F98 


G786 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 47500 






OBAO 


70F5 






MDX 




A786 


LOOP 


3A147510 






OBAE 


1800 






RTE 




16 


NOW AH/0001 Qf/OOOO 


3A147520 






OBAF 


F035 






EOR 




N785 


ZERO WITH /0001 


3A147530 






OBBO 


4C18 


0B65 




BSC 


L 


G788,£- 


BRANCH ON ZERO 


3A147540 






0BB2 


4400 


0F69 




BSI 


L 


FOOO 


SD OOOO-FFFF FAILED 


3A147550 






0BB4 


311A 






DC 




/311A 


ERR ID 


3A1 47560 






0BB5 


4400 


0FC4 


G788 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A147570 






0BB7 


70EB 






MDX 




A786 


LOOP 


3A147580 












»»»»»»»»*»»•»»*»*»»»»»»*»•»»•»•»•«»»»»*•»«»• 


3A14759Q 






0BB8 


C831 




A78A 


LOD 




N78A 


LD Af/OOOO Q#/COO0 


3A1 47600 






0BB9 


982C 






SD 




N786 


S /FFFF /FFFF 


3A147610 




OATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 


PROG 10 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 420403A 
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OBBA 





4C18 


OBBF 




BSC 


L 


G78A.C- 


BRANCH ON ZERO 


OBBC 





4400 


0F69 




BSI 


L 


FOOO 


SD OOOO-FFFF A FAILED 


OBBE 





311B 






DC 




/311B 


ERR ID 


OBBF 





4400 


0F9B 


G78A 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0BC1 





70F6 






MOX 




A78A 


LOOP 


0BC2 





1800 






RTE 




16 


NOW At/COOl OH/0000 


0BC3 





F025 






EOR 




N78D 


ZERO WITH /C001 


0BC4 





4C18 


0BC9 




BSC 


L 


G78C,£- 


BRANCH ON ZERO 


0BC6 





4400 


0F69 




BSI 


L 


FOOO 


SD COOO-FFFF FAILED 


OBCB 





311C 






DC 




/311C 


ERR 10 


0BC9 





4400 


0FC4 


G78C 


BSI 


L 


F005 


CK LOCK ON ERROR 


OBCB 





70EC 






MDX 




A78A 


LOOP 










**•**••**•*•**•****•••••••*•»••******••••***• 


OBCC 





C815 




A78E 


LDD 




N782 


LD At/0000 0*/0000 


OBCO 





9819 






SD 




N787 


S /FFFF /FFFF 


OBCE 





4C18 


08D3 




BSC 


L 


G78Et£- 


BRANCH ON ZERO 


OBDO 





4400 


0F69 




BSI 


L 


FOOO 


SO-ODD A FAILED 


GB02 





3110 






DC 




/3110 


ERR 10 


0BD3 





4400 


0F98 


G78E 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0BD5 





70F6 






MDX 




A78E 


LOOP 


0BD6 





1800 






RTE 




16 


NOW At/0001 Of/0000 


0B07 





FOOD 






EOR 




N785 


ZERO MI'.H /0001 


0B08 





4C18 


OBDD 




BSC 


L 


H780.C- 


BRANCH ON ZERO 


OBDA 





4400 


OF 69 




BSI 


L 


FOOO 


SD-ODD FAILED 


OBDC 





311E 






DC 




/311E 


ERR ID 


OBOD 





4400 


0FC4 


H780 


BSI 


L 


F005 


CK LOCK ON ERROR 


OBOF 





70EC 






MDX 




A78E 


LOOP 


OBEO 





700B 






MDX 




A7C0 


EXIT TO NEXT ROUTINE 


0BE1 





0000 




N780 


DC 




/OOOO 


STORAGE 


0BE2 




0000 






BSS 


E 






0BE2 





0000 




N782 


DC 




/OOOO 




0BE3 





0000 






DC 




/OOOO 




0BE4 





0000 




N784 


DC 




/OOOO 




0BE5 





0001 




N785 


DC 




/0001 




0BE6 





FFFF 




N786 


DC 




/FFFF 




0BE7 





FFFF 




N787 


DC 




/FFFF 




OBEB 





0002 




N7B8 


DC 




/0002 




0BE9 





C001 




N78D 


OC 




/C001 




06EA 





0000 




N78A 


OC 




/OOOO 




OBEB 





COOO 




• 
• 
• 


DC 




/COOO 

TEST 


OF MULTIPLY OPERATION 



CORE DATA OR *LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS lOCSEQf AT RIGHT 



OBEC 
OBED 
OBEE 
OBEF 
0BF1 
0BF3 
0BF4 
0BF6 
0BF7 
0BF8 
0BF9 
OBFB 
OBFD 
OBFE 
OCOO 

0C01 
0C02 
0C03 
0C05 



C04F 
A04F 
F04F 

4C16 0BF4 
4400 OF 69 
311F 

4400 0F98 
70 F5 
18D0 
F046 

4C18 OBFE 
4400 OF 69 
3120 

4400 0FC4 
70EB 

C03E 
A03D 

4C18 0C08 
4400 OF 69 



A7C0 



G7C0 



G7C2 



LD 

M 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N7C0 LO /5555 

N7C1 M /2AAA 

N7C2 ZERO WITH /0E38 

G7C0,£- BRANCH ON ZERO 

FOOO M /5555X/2AAA ACC FAILEO 

/311F ERR ID 

FOOE CK LOCK ON ERROR 

A7C0 LOOP 

16 NOW A0/9C72 Ot/0000 

N7C3 ZERO KITH /9C72 

G7C2,£- BRANCH ON ZERO 

FOOO MULT 5555XZAAA Q FAILED 

/3120 ERR ID 

F005 CK LOCK ON ERROR 

A7C0 LOOP 



A7C4 LD N7C4 LO /FFFF 

M N7C4 M /FFFF 

BSC L G7C4,£- BRANCH ON ZERO 

BSI L FOOO M /FFFFX/FFFF ACC FAILED 



3A147620 
3A 147630 
3A147640 
3A 147650 
3A147660 
3A 147670 
3A147680 
3A147690 
3A147700 
3A147710 
3A147720 
3A147730 
3A147740 
3A 147750 
3A147760 
3A147770 
3A147780 
3A 147790 
3A147B00 
3A147810 
3A147820 
3A147830 
3A147840 
3A147850 
3A147860 
3A147870 
3A147880 
3A147890 
3A147900 
3A147910 
3A1 47920 
3A147930 
3A147940 
3A147950 
3A147960 
3A 147970 
3A147980 
3A147990 
3A148000 
3A 1480 10 
3A 148020 
3A 148030 
3A148040 
3A148050 
3A148060 
3A14B070 
3A148080 
3A 14 8090 
3A148100 
3A148110 
3A148120 
3A148130 
3A148140 
3A148150 
3A148160 
3A148170 
3A148180 
3A148190 
3A148200 
3A 1482 10 
3A1 48220 
3A148230 
3A148240 
3A 148250 
3A148260 
3A148270 
3A148280 
3A 14 8290 



0C07 





3121 






DC 




/3121 


ERR 10 


0C08 





4400 


0F98 


G7C4 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


OCOA 





70F6 






MDX 




A7C4 


LOOP 


OCOB 





18D0 






RTE 




16 


NOW At/0001 00/0000 


OCOC 





F034 






EOR 




N7C5 


ZERO WITH /0001 


OCOD 





4C18 


0C12 




BSC 


L 


G7C6,C- 


BRANCH ON ZERO 


OCOF 





4400 


OF 69 




BSI 


L 


FOOO 


M /FFFFX/FFFF REG FAILEO 


0C11 





3122 






DC 




/2122 


ERR ID 


0C12 





4400 


0FC4 


G7C6 


BSI 


L 


F005 


CK LOCK ON ERROR 


0C14 





70 EC 






MDX 




A7C4 


LOOP 










»»»»»»»»»»»»»*»»»«»»«»»»»»»»»»»•**»»»»»»*»*** 


0C15 





C02C 




A7C8 


LD 




N7C6 


LD /OOOO 


GC16 





A029 






M 




N7C4 


M /FFFF 


0C17 





4C18 


0C1C 




BSC 


L 


G7C8.1- 


BRANCH ON ZERO 


0C19 





4400 


OF 69 




BSI 


L 


FOOO 


M /FFFFX/OOOO ACC FAILED 


0C1B 





3123 






DC 




/3123 


ERR ID 


0C1C 





4400 


0F98 


G7C8 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0C1E 





70F6 






MDX 




A7C8 


LOOP 


0C1F 





18D0 






RTE 




16 


NOW A»/0000 Oi/0000 


0C20 





4C18 


0C25 




BSC 


L 


G7CA,£- 


BRANCH ON ZERO 


0C22 





4400 


0F69 




BSI 


L 


FOOO 


M /FFFFX/OOOO REG FAILED 


0C24 





3124 






DC 




/3124 


ERR ID 


0C25 





4400 


0FC4 


G7CA 


BSI 


L 


F005 


CK LOCK ON ERROR 


0C27 





70 ED 






MDX 




A7C8 


LOOP 










**»»»»*»»»*»*»»•»»»*»»»»»»»»»»»«»*»»»»•«»»«»» 


0C28 





C017 




A7CC 


LD 




N7C4 


LD /FFFF 


0C29 





A018 






M 




N7C6 


M /OOOO 


0C2A 





4C18 


0C2F 




BSC 


L 


G7CCE- 


BRANCH ON ZERO 


0C2C 





4400 


OF 69 




BSI 


L 


FOOO 


M /OOOOX/FFFF ACC FAILED 


0C2E 





3125 






DC 




/3125 


ERR ID 


0C2F 





4400 


0F98 


G7CC 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


0C31 





70F6 






MDX 




A7CC 


LOOP 


0C32 





18D0 






RTE 




16 


NOW A0/OOOO Of/0000 


0C33 





4C18 


0C3B 




BSC 


L 


G7CE,£- 


BRANCH ON ZERO 


0C35 





4400 


OF 69 




BSI 


L 


FOOO 


M /OOOOX/FFFF REG FAILED 


0C37 





3126 






DC 




/3126 


ERR 10 


0C38 





4400 


0FC4 


G7CE 


BSI 


L 


F005 


CK LOCK ON ERROR 


0C3A 





70 ED 






MDX 




A7CC 


LOOP 


0C3B 





7007 






MDX 




A800 


EXIT TO NEXT ROUTINE 


0C3C 





5555 




N7C0 


OC 




/5555 




0C30 





2AAA 




N7C1 


DC 




/2AAA 




0C3E 





0E38 




N7C2 


DC 




/0E38 




0C3F 





9C72 




N7C3 


DC 




/9C72 




0C40 





FFFF 




N7C4 


DC 




/FFFF 




0C41 





0001 




N7C5 


DC 




/0001 




0C42 





OOOO 




N7C6 

• 
• 
• 


DC 




/OOOO 

TEST 


OF DIVIDE OPERATION 



CORE DATA OR *LA- OPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS £ REMARKS IDCSEQ* AT RIGHT 



0C43 
0C44 
0C46 
0C48 
0C4A 
0C4C 
0C4E 
0C50 
0C51 
0C53 
0C54 
0C55 
0C57 
0C59 



2000 

CCOO 0CE2 
ACOO 0CF2 
2C00 0CE1 
F400 0CF2 
4C18 0C51 
4400 0F69 
3127 

4400 0F98 
70 EF 
18D0 

F400 0CF1 
4C1B 0C5C 
4400 OF 69 



A800 



G800 



LDS 

LDD 

D 

STS 

EOR 

BSC 

BSI 

OC 

BSI 

MDX 

RTE 

EOR 

BSC 

BSI 



SET C AND OF OFF 

N802 LD At/4000 Qf/7FFF 

N812 /8000 

N800 STORE C AND OF CONDITION 

N812 ZERO WITH /8000 

G800.6- BR ON ZERO 

FOOO OVD-A-REG INCORRECT 

/3127 ERR ID 

FOOE CK LOCK ON ERROR 

ABOO LOOP 

16 NOW A#/7FFF 00/0000 

N811 ZERO WITH /7FFF 

G802.C- BRANCH ON ZERO 

FOOO DVD-0 REG INCORRECT 



3A148300 
3A148310 
3A148320 
3A148330 
3 A 148 340 
3A148350 
3A1 48360 
3A148370 
3A148380 
3A148390 
3A148400 
3A148410 
3A148420 
3A148430 
3A14B440 
3A148450 
3A1 48460 
3A148470 
3A148480 
3A148490 
3A14B500 
3A148510 
3A148520 
3A148530 
3A148540 
3A148550 
3A148560 
3A148570 
3A148580 
3A 148590 
3A148600 
3A148610 
3A148620 
3A148630 
3A148640 
3A14B650 
3A148660 
3A148670 
3A148680 
3A148690 
3A148700 
3A148710 
3A148720 
3A148730 
3A148740 
3A14B750 
3A148760 
3A148770 
3A148780 
3A14B790 
3A148800 
3A148810 
3A148820 
3A148830 
3A148840 
3A148850 
3A148860 
3A148870 
3A148C80 
3A148890 
3A148900 
3A 1489 10 
3A148920 
3A148930 
3A 148940 
3A148950 
3A 148960 
3A 148970 
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0C5B 





3128 






OC 




/3128 


ERR ID 


3A14B980 






0C5C 





4400 


0F98 


G802 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A148990 






OCSE 





70E4 






MOX 




A800 


LOOP 


3A149000 






0C5F 





C0E2 






LD 




N7C6 


LD /OOOO 


3A149010 






0C60 





4C18 


0C6E 




BSC 


L 


G804, 6- 


BRANCH ON ZERO 


3A149020 






0C62 





4C04 


0C6B 




BSC 


L 


H804 t E 


BR ON NOT EVEN 


3A 149030 






0C64 





4400 


0F69 




BSI 


L 


FOOO 


CARRY ON 


3A 149040 






0C66 





3129 






DC 




/3129 


ERR 10 


3A149050 






0C67 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A149060 






0C69 





7009 






MDX 




A800 


LOOP 


3A149070 






0C6A 





7006 






MOX 




A806 


EXIT TO NEXT ROUTINE 


3A149080 






0C6B 





4400 


0F69 


H804 


BSI 


L 


FOOO 


OVFLO ON 


3A149090 






0C60 





312A 






OC 




/312A 


ERR ID 


3A149100 






0C6E 





4400 


0FC4 


Ge04 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A149110 






0C70 





7002 






MDX 




A800 


LOOP 


3A149120 














-••••••••a*********************************** 


3A 149 130 






0C71 





C872 




A806 


LDO 




N804 


LD AC/1C71 00/BBE3 


3A149140 






0C72 





ACOO 


0CF3 




D 


L 


N813 


Z5555 


3A 149 150 






0C74 





286C 






STS 




N800 


STORE C AND OF CONDITION 


3A149160 






0C75 





F070 






EOR 




N813 


ZERO WITH /55555 


3A149170 






0C76 





4C18 


0C7B 




BSC 


L 


G806,£- 


BRANCH ON ZERO 


3A149180 






0C78 





4400 


0F69 




BSI 


L 


FOOO 


DVD-A REG INCORRECT 


3A 149 190 






0C7A 





312B 






DC 




/312B 


ERR ID 


3A149200 






0C7B 





4400 


0F98 


G806 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A149210 






0C70 





70F3 






MDX 




A806 


LOOP 


3A149220 






0C7E 





1800 






RTE 




16 


NOW A0/BBE3 Oft/0000 


3A149230 






0C7F 





F074 






EOR 




N816 


ZERO WITH /20AA 


3A149240 






0C80 





4C18 


0C85 




BSC 


L 


G808,t- 


BRANCH ON ZERO 


3A149250 






0C82 





4400 


OF 69 




BSI 


L 


FOOO 


DVD-Q REG INCORRECT 


3A149260 






0C84 





312C 






OC 




/312C 


ERR 10 


3A 149270 






0C85 





4400 


0F98 


G808 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A149280 






0C87 





70 E9 






MDX 




A806 


LOOP 


3A 149290 






0CB8 





C058 






LD 




NBOO 


LD C AND OF CONDITION 


3A 149 300 






0C89 





4CI8 


0C97 




BSC 


L 


G80A.E- 


BRANCH ON ZERO 


3A 1493 10 






0C8B 





4C04 


0C94 




BSC 


L 


H80A.E 


BR IF NOT EVEN 


3A149320 






0C80 





4400 


0F69 




BSI 


L 


FOOO 


CARRY ON 


3A149330 






OCBF 





3120 






DC 




/312D 


ERR ID 


3A149340 






0C90 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A149350 






0C92 





700 E 






MOX 




A806 


LOOP 


3A149360 






0C93 





7006 






MOX 




A80C 


EXIT TO NEXT ROUTINE 


3A 149370 






0C94 





4400 


OF 69 


H80A 


BSI 


L 


FOOO 


OVFLO ON 


3A1493B0 






0C96 





312E 






OC 




/312E 


ERR ID 


3A 1*9 390 






0C97 





4400 


0FC4 


G80A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A149400 






0C99 





7007 






MDX 




A806 


LOOP 


3A149410 














*»*»*»»****»»*»»»**»»»*»**»*»»*»»»*»»*»»*»»•* 


3A149420 






«•«»»»*»»*»**»»»»»»»*»»»*»»»»«*»»»»****»•******»»»»**»*»»**»*****#»**»# 


3A 149430 






COKE 




OAT A OR 


*LA- 


OPER- 








3A149440 






AODR 




INSTRUCTION 


•BE.. 


ATION 


FT 


OPERANDS £ REMARKS 1D&SEQ* AT RIGHT 


3A 149450 






• ••••••••••a*********************************************************!** 


3A149460 






0C9A 





2000 




A80C 


LOS 







SET C ANO OF OFF 


3A 149470 






0C9B 





C84A 






LOO 




N806 


SET A#/0000 Of/0001 


3A149480 






0C9C 





A851 






D 




N80E 


D /OOOO 


3A 149490 






0C9D 





4C01 


0CA2 




BSC 


L 


GSOCtO 


BRANCH ON OVERFLOW 


3A149500 






0C9F 





4400 


OF 69 


HBOC 


BSI 


L 


FOOO 


DVD BY 0- OFL OFF 


3A 1495 10 






0CA1 





312F 






DC 




/312F 


ERR ID 


3A149520 






0CA2 





4400 


0FC4 


G80C 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 149530 






OCA* 





70F5 






MOX 




A80C 


LOOP 


3A149540 






0CA5 





1800 






RTE 




16 


SWAP A AND 


3A 149550 






0CA6 





F040 






EOR 




N807 


ACC S/B /OOOO 


3A149560 






0CA7 





4C20 


0C9F 




BSC 


L 


H80CZ 


BCH UNLESS ZERO 


3A149570 














*»**»»*»»»**•»»•**»*»»*»»»»*»«»»»»«»»»»*»»«»» 


3A149580 






0CA9 





2000 




A80E 


LDS 







SET C AND OF OFF 


3A149590 






OCAA 





C83D 






LOO 




N808 


LD Af/4000 08/0000 


3A149600 






OCAB 





A83B 






D 




N807 


/0001 


3A149610 






OCAC 





4C01 


0CB1 




BSC 


L 


G80E.0 


BRANCH ON OVERFLOW 


3A149620 






OCAE 





4400 


OF 69 




BSI 


L 


FOOO 


DVD-BY 1-OVRFLW OFF 


3A 149630 






OCBO 





3130 






DC 




/3130 


ERR ID 


3A 149 640 






0CB1 





4400 


0FC4 


G80E 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3 A 1496 50 




OATE 


02 J AN 66 1 


31MAY66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 
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EC NO. 
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0C83 





70F5 






MDX 




A80E 


LOOP 




3A149660 














*»»»»»»**»»»»»»»»*»»*»*»*»»*»»***»»«»*»»»»»** 


3A149670 






0CB4 





2000 




B800 


LDS 







SET C ANO OF 


OFF 


3A149680 






0CB5 





C834 






LDD 




N80A 


LD Af/AOOO 


Of /OOOO 


3A 149690 






0CB6 





A831 






D 




N808 


D /4000 




3A149700 






0CB7 





4C01 


OCBC 




BSC 


L 


J800.0 


BRANCH ON OVERFLOW 


3A149710 






0CB9 





4400 


0F69 




BSI 


L 


FOOO 


DVD/4000-OVRFLW OFF 


3A149720 






OCBB 





3131 






DC 




/3131 


ERR ID 




3A149730 






OCBC 





4400 


0FC4 


J800 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A149740 






OCBE 





70 F5 






MDX 




B800 


LOOP 




3A149750 














»*»**»»***»»»»*»»**»*»»*»»*»»»**»»»»»»»»»»•»» 


3A149760 






OCBF 





2000 




B802 


LDS 







SET C AND OF 


OFF 


3A 149770 






OCCO 





C82B 






LDD 




N80C 


LD AK/COOO 


Of/0000 


3A149780 






0CC1 





A830 






D 




N812 


D /BOOO 




3A149790 






0CC2 





4C01 


0CC7 




BSC 


L 


J802.O 


BR ON OF 




3A149800 






0CC4 





4400 


OF 69 




BSI 


L 


FOOO 


DVD/8000-OVRFLW OFF 


3A149810 






0CC6 





3132 






DC 




/3132 


ERR 10 




3A149620 






0CC7 





4400 


0FC4 


J802 


BSI 


L 


F005 


CHECK LOOP SWITCH 


3A149830 






0CC9 





70F5 






MDX 




B802 


LOOP 




3A149840 














**•»«»»»»**»•»»»»»•»**»»***»»»«**»»»**»»»«»»* 


3A1498S0 






OCCA 





2000 




B804 


LDS 







SET C AND OF 


OFF 


3A149860 






OCCB 





C822 






LDD 




N80E 


LD Atf/OOOO 


Of/FFFF 


3A 149870 






OCCC 





ASIA 






D 




N807 


D /OOOl 




3A149880 






OCCD 





4C01 


0CD2 




BSC 


L 


J804,0 


BR ON OF 




3A 149890 






OCCF 





4400 


OF 69 




BSI 


L 


FOOO 


DVD/0001-OVRFLW OFF 


3A149900 






0C01 





3133 






DC 




/3133 


ERR ID 




3A 1499 10 






0CD2 





4400 


0FC4 


J804 


BSI 


L 


FOOS 


CK LOCK ON ERROR 


3A149920 






0CD4 





70 F5 






MDX 




B804 


LOOP 




3A 149930 














»»»»»»»»»»»*»»»•*»»»»»»»«»**»»»»*»**»»»»**»»« 


3A149940 






0CD5 





2000 




B806 


LDS 







SET C AND OF 


OFF 


3A149950 






0C06 





C819 






LDD 




N810 


lD AA/FFFF 


0»/7FFF 


3A1 49960 






0CD7 





A80F 






D 




N807 


D /OOOl 




3A 149970 






0C08 





4C01 


OCDD 




BSC 


L 


J 806,0 


BR ON OF 




3A149980 






OCDA 





4400 


OF 69 




BSI 


L 


FOOO 


DVD/0001-OVRFLW OFF 


3A 149990 






OCOC 





3134 






OC 




/3134 


ERR 10 




3A1 50000 






OCDD 





4400 


0FC4 


J806 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A150010 






OCDF 





70F5 






MDX 




B806 


LOOP 




3A1S0020 






OCEO 





7023 






MDX 




B807 


EXIT TO NEXT 


ROUTINE 


3A1S0030 






0CE1 





OOOO 




N800 


DC 




/OOOO 


STORAGE 




3A1 50040 






0CE2 




OOOO 






BSS 


E 








3A 150050 






0CE2 





4000 




N802 


DC 




/4000 






3A1 50060 






0CE3 





7FFF 






DC 




/7FFF 






3A 150070 






0CE4 





1C71 




N804 


DC 




/1C71 






3A150080 






0CE5 





BBE3 






DC 




/BBE3 






3A150090 






0CE6 





OOOO 




N806 


OC 




/OOOO 






3A150100 






0CE7 





0001 




N807 


DC 




/OOOl 






3A150110 






0CE8 





4000 




N808 


OC 




/4000 






3A150120 






0CE9 





OOOO 






DC 




/OOOO 






3A150130 






OCEA 





AOOO 




N80A 


OC 




/AOOO 






3A150140 






OCEB 





OOOO 






OC 




/OOOO 






3A150150 






OCEC 





COOO 




N80C 


DC 




/COOO 






3A1S0160 






OCED 





OOOO 






DC 




/OOOO 






3A150170 






OCEE 





OOOO 




N80E 


DC 




/OOOO 






3A150180 






OCEF 





FFFF 




N80F 


DC 




/FFFF 






3A150190 






OCFO 





FFFF 




N810 


DC 




/FFFF 






3A150200 






0CF1 





7FFF 




N311 


DC 




/7FFF 






3A150210 






0CF2 





8000 




N812 


DC 




/8000 






3A150220 






0CF3 





5555 




N813 


DC 




Z5555 






3A150230 






0CF4 





20AA 




N816 


OC 




/20AA 






3A1 50240 






0CF5 





COOO 




N817 


DC 




/COOO 






3A 1502 SO 






0CF6 





6100 




N818 


OC 




/6100 






3A150260 






0CF7 





OOOO 






DC 




/OOOO 






3A150270 






OCFB 





8000 




N819 


DC 




/8000 






3A1502B0 






0CF9 





OOOO 






OC 




/OOOO 






3A150290 






OCFA 





0002 




N820 


DC 




/0002 






3A 150 300 






OCFB 





OOOO 




N821 


DC 











3A150310 






OCFC 





2001 






OC 




/2001 






3A150320 






OCFO 





4000 






CC 




/4000 






3A150330 




DATE 


02JAN66 01MAY66 


15N0V66 
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OCFE COOO 
0000 0000 
0000 FFFF 


N823 


OC 

BSS 

DC 


E 


/COOO 



/FFFF 




3 A 150 340 
3A150350 
3A150360 






0001 FFFF 

0002 0000 


N824 


DC 
DC 




/FFFF 



STORAGE 


3A150370 
3A150380 






0D03 0000 




DC 







STORAGE 


3A150390 








*•»*»••»*»»**»*•»»»•***»**•*»»»***•******•*** 


3A150400 






*••••»»»•••*»•»•«*•••*»*•»»*»*****»*«»*••»*»***»*•*•**•**************** 


3A150410 






COKE OATA OR 


• LA- 


OPER- 








3A150420 






AOOR INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS £ REMARKS IDESEO* AT RIGHT 


3A150430 






»»»»»*»»»»»•»»»*»*»»*»»*•*»*»»»»****»*»»*»»********* 


3A150440 






0D04 2000 


B807 


LDS 







SET C AND OF OFF 


3A 150450 






0005 C8F0 




LCD 




N818 


LD Ai/6100 Oi/0000 


3A150460 






0006 A8EE 




D 




N817 


/COOO 


3A150470 






0007 4C01 ODOC 




BSC 


L 


J808.0 BR ON OF 


3A1 50480 






0009 4400 OF 69 




BSI 


L 


FOOO 


OVERFLOW OFF 


3A 150490 






ODOB 316A 




DC 




/316A 


ERR ID 


3A150500 






OCOC 4400 0FC4 


J808 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A150510 






ODOE 70FS 




MOX 




B807 


LOOP 


3A150520 








**»******»**»*»»*»•»•»*»****•»**•»•**»**••*** 


3A 150530 






OOOF 2000 


B808 


LDS 







SET C ANO OF OFF 


3A150540 






0D10 C8E7 




LDD 




N819 


LO A8/8000 Oi/0000 


3A150550 






0011 A80D 









N80F 


/FFFr 


3A1 50560 






0012 4C01 0D17 




BSC 


L 


J 809,1 


9 BR ON OF 


3A150570 






0014 4400 0F69 




BSI 


L 


FOOO 


OVERFLOW OFF 


3 A 150580 






0016 316B 




DC 




/316B 


ERR ID 


3A 150590 






0D17 4400 0FC4 


J 809 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A150600 






0019 70F5 




MOX 




B808 


LOOP 


3A150610 








****»»»•»»»**•*»•*•#•»***•••»»*•**♦»•»•****•* 


3A 150620 






0D1A 2000 


B809 


LDS 







SET C ANO OF OFF 


3A150630 






0D1B C8E4 




LOO 




N823 


LO A8/FFFF Oi/FFFF 


3A150640 






0D1C ABDO 




D 




N620 


D /0002 


3A150650 






0010 4C01 0020 




BSC 


L 


J815, 


BR ON OF 

OVERFLOW OFF 


3A1 50660 






00 IF 7003 




MDX 




J810 


3A150670 
3A1 50680 
3A150690 






0020 4400 0F69 
0022 316C 


J815 


BSI 
DC 


L 


FOOO 
/316C 


ERR ID 






0023 4400 0FC4 


J810 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 50700 






0025 70F4 




HDX 




B809 


LOOP 


3A150710 








#***»♦»*»»»•»»**••*•***•**•»***************** 


3A150720 








***»*«»#»»»*♦*»****»*******••**»*•*********** 


3A 150730 








* 










3A1 50740 








* 










3A150750 








• 








MULTIPLY-OIV TEST XBBlOa 


3A150760 








* 










3*150770 








• 










3*150780 








• 








THIS TEST TAKES 4 NUMBERS 


3*150790 








• 








/8000, /COOO, /4000 AND 


3*150800 








* 








/2001 AND MULTIPLIES AND 


3*150810 








• 








DIVIDES THE RESULT OF THE 


3*150820 








* 








MULTIPLICATION BY ALL 


3*150830 








• 








VALUES OF NEGATIVE AND 


3*150840 








* 








POSITIVE NUMBERS. THIS 


3*150850 








• 








PROCEDURE IS REPETED 


3*150860 








• 








UNTIL ALL FOUR NUMBERS 


3*150870 








• 








HAVE BEEN USED. 


3*150880 








• 










3*150890 








• 






STEP1 SET HULTIPLICANB mo 


3*150900 








• 








DIVISOR TO LARGEST NEG. 


3*150910 








• 








NUMBER. 


3*1 50920 








• 






STEP2 TAKE ONE OF FOUR NUMBERS 


3*150930 








• 








AND USE IT AS THE 


3*150940 








• 








MULTIPLIER 


3*150950 








• 






STEP3 MULTIPLY 


3*150960 








• 






STEP4 STORE RESULTS IN SYMBOLIC 


3*150970 








• 








LOCATION N824 


3A 150980 








* 






STEP5 DIVIDE 


3A150990 








• 






STEP6 CHECK RESULT 


3A1 51000 








• 






STEP7 INCREMENT MULTIPLICAND 


3*151010 




DATE 


02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG6B 


PROG 10 


03A1-1 


EC NO. 


415490 415490C 
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PAGE 


38 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 38A 



* 
* 

* 

* 

* 
* 
» 



ANO DIVISOR BY 1. 
STEP8 GO TO STEP 2 IF ALL 

VALUES HAVE NOT BEEN 

USED AS MULTIPLICANDS AND 

DIVISORS. 
STEP9 SET UP FOR NEXT ONE OF 4 

MULTIPLIERS. 
STEP10 GO TO STEP 2 IF ALL 4 
NUMBERS HAVE NOT BEEN 
USED. 



NOTE — THREE WORD LOCATIONS ARE AVAILABLE FOR 
MANUAL INSERTION OF ANY VALUE DESIRED. 
THEY ARE AT LABEL ADDRESS N82U1, N821t2,3A151170 



3A151020 
3*151030 
3A151040 
3A151050 
3A151060 
3A151070 
3A151080 
3A151090 
3A151100 
3A151110 
3A151120 
3A151130 
3A151140 
3A151150 
3A151160 



AND N821C3. 

CAUTION ** DO NOT CHANGE THE WORD AT LABEL 
LOCATION N822 X /800Cn. 



CORE DATA OR *LA- OPER- 

AODR INSTRUCTION »BEL AT10N FT OPERANDS C REMARKS I0£SE0« AT RIGHT 

»»»»»#*•»»»»»»»•»*»*»»*♦»»»»«*»»*****»*»*»»**»***********•**»••******** 



0D26 

OD27 

0029 

0D2B 

0D2C 

0D2D 

0D2E 

002F 

0D30 

0D31 

0033 

0D34 

OD35 

0036 

0D38 

0D3A 

0D3C 

0D3D 

0D3F 

0D40 

0D41 

0043 

0D45 

0046 

0D48 

0D49 

0D4A 

004B 

0D4C 

0D4E 

0D4F 

0D51 

0D52 

0053 

0055 



6104 

OCOO 0FD2 

C400 0FD5 

1808 

4804 

7028 

C0C9 

DOCB 

COCA 

A500 OCFB 

08CE 

2000 

A8C5 

F500 OCFB 
4C18 003D 

4400 0F69 

3160 

4400 0F98 

70F0 

1800 

4C18 0046 

4400 0F69 

316E 

4400 0F98 

70 E7 

C0B1 

809C 

OOAF 

4C18 0D49 

F0A9 

4C20 OD30 

71FF 

70D4 

4400 0FC4 

7000 



B810 
J814 



J811 



J812 



jei3 



J816 



LDX 

XIO 

LD 

SRA 

BSC 

MDX 

LD 

STO 

LD 

M 

STD 

LOS 



EOR 

BSC 

BSI 

DC 

BSI 

MDX 

RTE 

BSC 

BSI 

DC 

BSI 

MDX 

LD 

A 

STO 

BSC 

EOR 

BSC 

MOX 

MDX 

BSI 

MDX 



LI 



4 

F003 

ZOOO 

8 

E 

A840 

N819 

N821 

N821 

N821 

N824 



N821 

N821 

J812,C- 

FOOO 

/3160 

FOOE 
J811 

16 

J813.6- 

FOOO 

/316E 

FOOE 

J811 

N821 

N807 

N821 

J616,C- 

N819 

J811.Z 

-1 

J814 

F005 

B810 



LD XR 1 WITH /0004 

CK BYPASS MPV/DIV SW 

LO SWITCH SETTINGS 

SHIFT BIT 7 TO 81T POS 

SK IF BIT 1580 

SW BIT 6 ON SBYPASSa 

CONST /8000 

STORE /8000 AT N821 

LD CSN821D /8000 

STORE A ANO Q 

SET C AND OF OFF 

D /8000 

ZERO WITH /BOOO 

BRANCH ON ZERO 

ACC NOT ZERO 

ERR ID 

CK LOCK ON ERROR 

LOOP ON MPL/DIV 

NOW Af/OOOO 08/0000 

BRANCH ON ZERO 

REMAINDER IN REG 

ERR 10 

CK LOCK ON ERROR 

LOOP ON MPL/DIV 

LD /8000 

ADD ONE 

BRANCH ON ZERO 

BR IF NOT ZERO 

LOOP TO CK SWITCHES 
CK LOCK ON ERROR 
LOOP 



15 



• TEST OF MOX OPERATION 



0D56 
0057 
0058 



6100 
71FF 
3000 



A840 LDX 10 LD XR 1 WITH ZERO 

HDX 1 -1 SK IF SIGN CHANGES 

HA1T MDX FAILED TO SKIP 



3A151180 

3A151190 

3A151200 

3A151210 

3A151220 

3A151230 

3A151240 

3A 15 1250 

3A151260 

3A151270 

3A151280 

3A151290 

3A151300 

3A151310 

3A151320 

3A151330 

3A151340 

3A 15 1350 

3A151360 

3A151370 

3A151380 

3A151390 

3A151400 

3A 15 14 10 

3A151420 

3A 15 1430 

3A151440 

3A151450 

3A151460 

3A151470 

3A151480 

3A 15 1490 

3A151500 

3A151510 

3*151520 

3*151530 

3*151540 

3*151550 

3*151560 

3*151570 

3*151580 

3*151590 

3*151600 

3*151610 

3*151620 

3*151630 

3A151640 

3A 151650 

3A151660 

3A151670 

3A151680 

3A151690 



DATE 
EC NO. 
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0059 





696D 






STX 


1 N840 


STORE CXXR in AT N840 


3A151700 






0D5A 





C06C 






ID 


N84C 


LD VALUE OF XR 1 


3A151710 






0D5B 





F06C 






EOR 


N841 


ZERO ACC KITH /FFFF 


3A151720 






0D5C 





4C18 1 


9061 




BSC 


L G840tC- 


BRANCH ON ZERO 


3A 151730 






0D5E 





4400 I 


DF69 




BSI 


L FOOO 


MOX XR 1 FAILED 


3A151740 






0D60 





3135 






DC 


/3135 


ERR ID 


3A151750 






0061 





4400 ' 


0FC4 


G840 


BSI 


L F005 


CK LOCK ON ERROR 


3A151760 






0063 





70 F2 






MOX 


A 840 


LOOP 


3A151770 














»»»»»•»»»»»»»»»»»»»»»*»»»»•*»»*•*»*»»»»**»«*» 


3A1517B0 






0064 





CO 68 




A842 

• 


LD 


N845 


LD WITH ADDR OF 
• LABEL N844 


3A151790 
3A1S1B00 






0065 





7401 


0DC9 




MDX 


L N842.1 


BR TO LABEL ADDR N842 CI 


3A151810 






0067 





F065 






EOR 


N845 




3A151820 






0068 





4C18 


0D60 




BSC 


L H842tC- 


BRANCH ON ZERO 


3A151830 






0D6A 





4400 


0F69 




BSI 


L FOOO 


ACC OISTROVED AFTER MDX 


3A151840 






006C 





316F 






DC 


/316F 


ERR ID 


3A151850 






0D6D 





C05B 




H842 


LD 


N842 


LD AC/3000 


3A151B60 






006E 





F05F 






EOR 


N846 


ACC NOW /0001 


3A151B70 






0D6F 





4C18 


0074 




BSC 


L G842.6- 


BRANCH ON ZERO 


3A1S1880 






0071 





4400 


OF 69 




BSI 


L FOOO 


ADD TO MEM FAILED 


3A151890 






0073 





3136 






OC 


/3136 


ERR 10 


3A151900 






0074 





C056 




G842 


LD 


N843 


LD /3000 


3A151910 






0075 





0053 






STO 


N842 




3*151920 






0076 





4400 


0FC4 




BSI 


L F005 


CK LOCK ON ERROR 


3A151930 






0078 





70EB 






MDX 


A842 


LOOP 


3A151940 














**»»»»**»»*»*»»»*»»»»»»«*****»»»***»»»*»»»«»* 


3A151950 






»»»»»»«»»»»»»•»*»•»»*»»»*»***»•••*»***•*»»»»♦***»»»**»*»*»•*»*•******** 


3A151960 






CORE 




DATA 


OR 


*LA- 


OPER- 






3A151970 






ADDR 




INSTRUCTION 


»BEL 


ATION 


FT OPERANDS t REMARKS ID6SE0* AT RIGHT 


3A151980 






»»»•*•*»»»»•»»»»••»»»•»»•»»»**»»»»••*»»****»*»*»**»»»»»»•*»*»**•*»»»*** 


3A 15 1990 






0D79 





6600 


FFFE 


A844 


LOX 


L2 -2 


LD XR 2 WITH -2 


3A152000 






007B 





7600 


0001 




MDX 


L2 1 


AOO ONE TO XR 2 


3A152010 






0D7D 





6A49 






STX 


2 NB40 


STORE XR 2 


3A152020 






007E 





C048 


/ 




LD 


N840 


LD WITH XR 2 VALUE 


3A152030 






007F 





F048 


/ 




EOR 


N841 


ZERO ACC WITH /FFFF 


3A152040 






0080 





4C18 


OD85 ' 




BSC 


L G844,t- 


BRANCH ON ZERO 


3A152050 






0082 





4400 


OF 69 




BSI 


L FOOO 


MOX LONG XR 2 FAILED 


3A1 52060 






0084 





3137 






OC 


/3137 


ERR ID 


3A152070 






0085 





4400 


0FC4, 


G844 


BSI 


L F005 


CK LOCK ON ERROR 


3A1S2080 






0087 





70F1 






NOX 


A844 


LOOP 


3A152090 














»»»*»»»»»»»»»»»»»*»»»»»•»*»•»•*»•«»»»»»»»»»»» 


3A152100 


- 




0088 





63FF 




A846 


LDX 


3 -1 


LD XR 3 WITH -1 


3A 152 110 






0089 





7301 






MDX 


3 1 


ADD ONE TO XR 3 


3A152120 






0D8A 





7001 






MOX 


G846 


010 NOT SK ON MOX 


3A152130 






008B 





7003 






MOX 


H846 




3A152140 






ODBC 





4400 


0F69 


G846 


BSI 


L FOOO 


XR 3 NO SKIP AT 


3A152150 






008E 





3138 






DC 


/3138 


ERR 10 


3A152160 






008F 





4400 


0FC4 


H846 


BSI 


L F005 


CK LOCK ON ERROR 


3A152170 






0091 





70F6 






MDX 


A846 


LOOP 


3A152180 














*»»»»»»»»»»»»»»»»»»»»»»*»*»»»*♦*»***»»»•«»»»» 


3A152190 






0092 





61FF 




A848 


LDX 


1 -1 


LO XR 1 WITH -1 


3A1 52200 






0093 





7104 






MDX 


1 4 


AOO 4 TO XR 1 


3A152210 






0094 





7001 






MDX 


G848 


DID NOT SK ON MDX 


3A152220 






0095 





7003 






MDX 


H848 




3A152230 






0096 





4400 


OF 69 


G848 


BSI 


L FOOO 


SIGN CHANGE-NO SKIP 


3A1 52240 






009 8 





3139 






DC 


/3139 


ERR 10 


3A152250 






0D99 





4400 


0FC4 


H848 


BSI 


L F005 


CK LOCK ON ERROR 


3A152260 






0D9B 





70F6 






MDX 


A848 


LOOP 


3A152270 














•»»»»»•»»»»»»»»»•»»»»»»»**•»»»»»»»»•****»»»»» 


3A152280 






009C 





6500 


FFFE 


AB49 


LDX 


LI -2 


LD XR 1 WITH -2 


3A152290 






009 E 





COFF 




H849 


LO 


H849 




3A 152 300 






009 F 





75S0 


OOCD 




MDX 


11 N845 




3A 1523 10 






00 A 1 





6925 






STX 


1 N840 


STORE CXXR lo AT N840 


3A152320 






0DA2 





FOFB 






EOR 


H849 




3A152330 






00A3 





4C18 


0DA8 




BSC 


L K849,C- 


BRANCH ON ZERO 


3A152340 






0DA5 





4400 


OF 69 




BSI 


L FOOO 


ACC GONE AFTER MOX INOEXED 3A152350 






0DA7 





3168 






DC 


/3168 


ERR ID 


3A152360 






0DA8 





| CO IE 




K849 


LO 


N840 


LO VALUE OF XR 1 AFTER 


3A152370 




OATE 


02JAN66 


01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG 10 


03A1-1 


EC NO. 


415490 


415490C 


419643 


420403 


420403A 
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• 








• MDX OP 


3A152360 






00A9 





F01E 






EOR 




N841 


ZERO ACC WITH /FFFF 


3A152390 






ODAA 





4C18 i 


OOAF 




BSC 


L 


G849,t- 


BRANCH ON ZERO 


3A152400 






ODAC 





4400 i 


OF 69 




BSI 


L 


FOOO 


INDIRECT MOX FAILEO 


3A152410 






ODAE 





313A 






OC 




/313A 


ERR 10 


3A152420 






OOAF 





4400 


0FC4 


G849 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152430 






0DB1 





70EA 






MDX 




A849 


LOOP 


3A152440 














»*»»*»**»#»*»»*»»»•»»•»*»»*»»*****•***»**»*****»** 


3A152450 






0DB2 





7400 


00C6 


A 84 A 


MOX 


L 


N84A,0 


TEST SKIP IF ZERO 


3A1 52460 ' 






0DB4 





7001 






MDX 




G84A 


BYPASS IF CORRECT OP 


3A152470 






00B5 





7003 






MOX 




H84A 




3A1 52480 






0DB6 





4400 


OF 69 


G84A 


BSI 


L 


FOOO 


MDX L FAILEO TO SKIP 


3A 152490 






00B8 





3171 






OC 




/3171 


ERR ID 


3A152500 






00B9 





4400 


0FC4 


H84A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152510 






OOBB 





70F6 






MOX 




A84A 


LOOP 


3A152520 














**»»«»»»*»»»»»»»»*«»»»»*»»»»»»»»»•••»»»*•»»•»»»««• 


3A152530 






ODBC 





7400 


OOCC 


A85A 


MOX 


L 


N844.0 


TEST NON SKIP 


3A152540 






ODBE 





7003 






MOX 




H85A 




3A152550 






OOBF 





4400 


0F69 




BSI 


L 


FOOO 


MDX L SKIPEO 


3A152560 






0DC1 





3172 






DC 




/3172 


ERR ID 


3A152570 






00C2 





4400 


0FC4 


H85A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A152580 






0DC4 





70F7 






MDX 




A85A 


LOOP 


3A152590 






00C5 





7009 






MDX 




A880 


EXIT TO NEXT ROUTINE 


3A1 52600 






0DC6 





0000 




N84A 


OC 







CONSTANT ZERO 


3A152610 














»*»»»»*»»»»*»»»»»»»»»»*»»*»«*»*»*»»*»»»*«»»»**»»*» 


3A152620 






»»*»»»»*»»»*»»»»*»»»»»•*»»»»»»»»»»»»*••»*»»»»»»»»•»•»»»»»»»*•»»»••»»»»• 


3A152630 






CORE 




DATA 


: OR 


*LA- 


OPER- 








3A152640 






AODR 




INSTRUCTION 


•BEL 


ATION 


FT 


OPERANDS € REMARKS IDCSEO* AT RIGHT 


3A152650 






*»»»***»»*»»»»***»**»»*»»***»»*****»»»»*»*»»*»»»»»««*»»******»»*»*»»»** 


3A 152660 






00C7 





0000 




N840 


DC 




/OOOO 


STORAGE 


3A152670 






0DC8 





FFFF 




N841 


OC 




/FFFF 




3A152660 






0DC9 





3000 




N842 


WAIT 






ADD TO MEM FAILED 


3A152690 






OOCA 





3000 






WAIT 






AOO TO MEM FAILED 


3A 152700 






ODCB 





3000 




N843 


WAIT 






ADO TO MEM FAILEO 


3A152710 






ODCC 





0001 




N844 


DC 




/0001 




3A152720 






OOCO 





ODCC 




N845 


DC 




N844 




3A152730 






OOCE 





3001 




N846 

« 


DC 




/3001 




3A152740 
3A152750 














• 






TEST OF SLC OPERATION 


3A152760 














• 










3A152770 














»»»»»»»»*»»»•*»»»»»»»*•»»»••»»»»»»»*»»»»•»*»» 


3A152780 






ODCF 





610A 




A8B0 


LDX 


1 


10 


LD XR 1 WITH CIO 


3A 152790 






0000 





CCOO 


0EC8 




LDO 


L 


N882 


LO AA/OOOO Of/FFFF 


3A1S2800 






0D02 





2002 






LOS 




2 


SET C ON 


3A152810 






0003 





1140 






SLCA 


1 





NON Af/OOOO Q#/FFFF 


3A152820 






0004 





6000 


0EC7 




STX 


LI 


N880 


STORE CSXR ID 


3A152B30 






0006 





2812 






STS 




G881 


STORE CARRY CONDITION 


3A152840 






0007 





4C18 


OODC 




BSC 


L 


G880,£- 


BRANCH ON ZERO 


3A152850 






00D9 





4400 


OF 69 




BSI 


L 


FOOO 


ACC NOTfZERO 


3A1 52860 






OODB 





31 3B 






OC 




/313B 


ERR ID 


3A152870 






OODC 





4400 


0F98 


G880 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A152880 






ODOE 





70 FO 






MDX 




A880 


LOOP 


3A152890 






OODF 





C400 


0EC7 




LD 


L 


N880 


LD PREVIOUS CXXR lo 


3A152900 






0DE1 





4C18 


00E6 




BSC 


L 


G882tt- 


BRANCH ON ZERO 


3A152910 






ODE 3 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 NOTfZERO 


3A152920 






00E5 





313C 






DC 




/313C 


ERR 10 


3A1S2930 






0DE6 





4400 


0F98 


G882 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A152940 






0DE8 





70 E6 






MDX 




A880 


LOOP 


3A152950 






00E9 





2000 




G881 


LDS 







SAVED BY STS ABOVE 


3A152960 






ODEA 





4802 






BSC 




C 


SK IF CARRY OFF 


3A152970 






OOEB 





7004 






MDX 




G883 


CARRY ON 


3A152980 






ODEC 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3 A 152990 






ODEE 





70E0 






MOX 




A880 


LOOP 


3A153000 






ODEF 





7006 






MOX 




A884 


EXIT TO NEXT ROUTINE 


3A153010 






OOFO 





4400 


OF 69 


G883 


BSI 


L 


FOOO 


CARRY ON XSHOULD NOT BEo 


3A153O20 






0DF2 





3160 






OC 




/3160 


ERR ID 


3A153030 






0DF3 





4400 


0FC4 




BSI 


L 


F005 


CK LOCK ON ERROR 


3A1 53040 






OOF 5 





70 09 






MDX 




A880 


LOOP 


3 A 15 3050 




OATE 


02JAN66 I 


01MAY66 


1SN0V66 


1SFEB68 


26AUG68 


PROG ID 
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••••a**************************************** 


3A153060 






0DF6 





6580 


OECO 


A884 


LDX 


11 


N887 


LD XR 1 WITH /FFDO 


3A153070 






0DF8 





CCOO 


OECA 




LOD 


L 


N884 


LD A#/0001 00/0010 


3A153080 






OOFA 





2000 






LOS 







SET C AND OF OFF 


3A 15 3090 






ODFB 





1140 






SLCA 


1 





ACC NOM /8000 


3A153100 






ODFC 





2818 






STS 




G885 


STORE C AND OF CONDITION 


3A153110 






OOFD 





F400 


OECC 




EOR 


L 


N886 


ZERO WITH /8000 


3A153120 






OOFF 





4C18 


0E04 




BSC 


L 


G884,t- 


BRANCH, ON ZERO 


3A153130 






0E01 





4400 


OF 69 




BSI 


L 


FOOO 


ACC NOTff/8000 


3A153140 






0E03 





3130 






DC 




/3130 


ERR ID 


3A153150 






0E04 





4400 


0F98 


G884 


BSI 


L 


FOOE 


CHECK LOOP SWITCH 


3A153160 






0E06 





70EF 






MOX 




A884 


LOOP 


3A153170 






0E07 





6DO0 


0EC7 




STX 


LI 


N880 


STORE CXXR la AT N880 


3A153180 






0E09 





C400 


0EC7 




LO 


L 


NB80 


LD CSN880O 


3A153190 






OEOB 





F400 


0E04 




EOR 


L 


N88E 


ZERO WITH /FF01 


3A1 53200 






OEOO 





4C18 


0E12 




BSC 


L 


G866,t- 


BRANCH ON ZERO 


3A153210 






OECF 





4400 


OF 69 




BSI 


L 


FOOO 


XR-1 NOT FF01 


3A153220 






0E11 





313E 






OC 




/313E 


ERR 10 


3A153230 






0E12 





4400 


0F98 


G886 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A1 53240 






0E14 





70E1 






MOX 




A884 


LOOP 


3A153250 






0E15 





2000 




G885 


LOS 







SAVED BY STS ABOVE 


3A153260 






0E16 





4802 






BSC 




C 


SK IF CARRY OFF 


3A153270 






0E17 





7003 






MOX 




G887 




3A1 53280 






0E18 





4400 


0F69 




BSI 


L 


FOOO 


CARRY OFF, SHOULD BE ON 


3A153290 






0E1A 





3161 






OC 




/3161 


ERR ID 


3A1 53300 






0E1B 





4400 


0FC4 


G887 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A153310 






0E10 





7008 






MOX 




A884 


LOOP 


3A1 53320 














•A******************************************* 


3A153330 






*••••*****••**•*••*«•*••**••*•*•«*«•••*•*•*••**•«*••****«****•****••*** 


3A153340 






CORE 




DATA OR 


•LA- 


OPER- 








3A153350 






AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


t REMARKS IDCSEQff AT RIGHT 


3A153360 






•»*****»»»»»»»*»»«»»***•»»»»»»»»»»»»»»»»*»»»«»»«*»»»»**»»»»»»»»»*»*»»»* 


3A153370 






0E1E 





6580 


OECB 


A888 


LOX 


U 


N885 


LD XR 1 WITH /0010 


3A153380 






0E20 





CCOO 


OECC 




LOO 


L 


N8B6 


LD A* /8000 Qff/FFDO 


3A153390 






OE22 





1140 






SLCA 


1 





ACC NOW /BOOO 


3A153400 






0E23 





F400 


OECC 




EOR 


L 


N8B6 


ZERO WITH /8000 


3A153410 






OE25 





4C18 


0E2A 




BSC 


L 


G888,£- 


BRANCH ON ZERO 


3A153420 






0E27 





4400 


0F69 




BSI 


L 


FOOO 


ACC NOTffBOOO 


3A153430 






0E29 





313F 






OC 




/313F 


ERR ID 


3A153440 






0E2A 





4400 


0F98 


G888 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A 153450 






0E2C 





70F1 






MOX 




A888 


LOOP 


3A153460 






0E2D 





6000 


0EC7 




STX 


LI 


N880 


STORE CXXR ID IN N880 


3A153470 






0E2F 





C400 


0EC7 




LD 


L 


N880 


LO CXN880D 


3A153480 






0E31 





F400 


OECB 




EOR 


L 


N885 


ZERO WITH /0010 


3 A 153490 






0E33 





4C18 


0E38 




BSC 


L 


G88A.C- 


BRANCH ON ZERO 


3A153500 






0E35 





4400 


OF 69 




BSI 


L 


FOOO 


XR 1 NOTiOOlO 


3A153510 






0E37 





3140 






OC 




/3140 


ERR ID 


3A153520 






0E38 





4400 


0FC4 


G88A 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A153530 






0E3A 





70E3 






MDX 




A888 


LOOP 


3A153540 














»»»»»»»»*»«»»»»»»»»»»»*»»»»»***»♦»»»»»*»»»*»* 


3A153550 






0E3B 





6110 




A889 


LDX 


1 


16 


LD XR 1 WITH /0010 


3A153560 






0E3C 





6210 






LDX 


2 


16 


LD XR 2 WITH /0010 


3A153570 






0E3D 





6310 






LDX 


3 


16 


LO XR 3 WITH /0010 


3A1535B0 






0E3E 





C400 


OECA 




LD 


L 


N884 


LD Aff/0001 


3A153590 






OE40 





1041 






SLCA 




1 


ACC NOW /0002 


3A153600 






0E41 





F400 


0ED1 




EOR 


L 


N88B 


ZERO WITH /0002 


3A153610 






0E43 





4C18 


0E48 




BSC 


L 


G889,£- 


BRANCH ON ZERO 


3A 153620 






0E45 





4400 


OF 69 




BSI 


L 


FOOO 


NON INDEXED SLCA FAILED 


3A153630 






0E47 





3162 






OC 




/3162 


ERR ID 


3A1 53640 






0E48 





4400 


0FC4 


G889 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A153650 






0E4A 





70F0 






MOX 




A889 


LOOP 


3A153660 














•»»*»»*»«*»»*»*»»»»*»»»*»»»»*»***»»**»*»»**»» 


3A153670 






0E4B 





6110 




A88A 


LDX 


1 


16 


LO XR 1 WITH /0010 


3A153680 






0E4C 





6210 






LDX 


2 


16 


LD XR 2 WITH /0010 


3A 153690 






0E40 





6310 






LOX 


3 


16 


LO XR 3 WITH /0010 


3A1537O0 






0E4E 





CCOO 


0EC8 




LOD 


L 


N882 


LD Aff/OOOO 0#/FFFF 


3A153710 






0E50 





10CF 






SLC 




15 


NOW Aff/7FFF Qff/1000 


3A153720 






0E51 





F400 


0ED5 




EOR 


L 


N88F 


ZERO WITH /7FFF 


3A153730 




DATE 


02JAN66 01HAY66 


15N0V66 


15FEB68 26AUG68 


PROG ID 


03A1-1 


EC NO. 


415490 415490C 


419643 


420403 420403A 
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0E53 





4C18 


0E56 




BSC 


L 


G88B.C- 


NON INDEXED SLC FAILED 




0E.55 





3173 






DC 




/3173 


ERR ID 




0E56 





4400 


0FC4 


G88B 


BSI 


L 


F005 


CK LOCK ON ERROR 




OE58 





70 F2 






MOX 




A88A 


LOOP 












****»»*»»*»*»*»»»»*»»»*»»»»*«»»«*»*»»»»»»**»* 












»******»*»»•»*»»»»***»**•»»»»*«*»«»»»»»*»*»»» 




0E59 





6580 


0E02 


A88C 


LDX 


11 


N88C 


LD XR 1 WITH /0020 




0E5B 





C872 






LDD 




N888 


LD A*/0000 Off/0000 




0E5C 





11C0 






SLC 


1 





ACC NOW Aff/OOOO Off/0000 




0E5D 





4C18 


0E62 




BSC 


L 


G88CC- 


BRANCH ON ZERO 




0E5F 





4400 


OF 69 




BSI 


L 


FOOO 


ACC NOTffOOOO 




0E61 





3141 






DC 




/3141 


ERR ID 




0E62 





4400 


0F98 


G88C 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0E64 





70 F4 






MDX 




A88C 


LOOP 




0E65 





18D0 






RTE 




16 


ACC NOW Aff/OOOO Off/0000 




0E66 





4C18 


0E6B 




BSC 


L 


G88E.G- 


BRANCH ON ZERO 




0E68 





4400 


OF 69 




BSI 


L 


FOOO 


REG NOTffOOOO 




0E6A 





3142 






DC 




/3142 


ERR ID 




0E6B 





4400 


0F98 


G88E 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0E6D 





70EB 






MDX 




A88C 


LOOP 




0E6E 





6958 






STX 


1 


N880 


STORE CXXR 10 IN N880 




0E6F 





CO 57 






LD 




N880 


LD CXN880Q 




0E70 





4C18 


0E75 




BSC 


L 


J880.C- 


BRANCH ON ZERO 




0E72 





4400 


0F69 




BSI 


L 


FOOO 


XR 1 NOTffOOOO 




0E74 





3143 






DC 




/3143 


ERR 10 




0E75 





4400 


0FC4 


J880 


BSI 


L 


F005 


CK LOCK ON ERROR 




0E77 





70E1 






MDX 




A88C 


LOOP 












**»*»»*»»*»»***»»»»»»********»*»»*****»****»» 




****»***»*****«**»**««**»»«»»»»»*»»«**»»»»•»»***»»*»»»♦»»»**»*»»•»***«» 




CORE 




DATA OR 


*LA- 


OPER- 










AODR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS 


C REMARKS IDtSEOff AT RIGHT 




***»»**»**»*»•******»»**»»»»»»»»*»*»**»*»*•**»**»*»»»*»*»»»»»»»•»»»»»»» 




0E78 





6580 


0E03 


BB82 


LOX 


11 


N88D 


LO XR 1 WITH /FFOF 




0E7A 





C855 






LOD 




NB8A 


LD Aff/OOOO Off/0002 




0E7B 





11C0 






SLC 


1 





NOW Aff/8000 Off/0000 




0E7C 





F04F 






EOR 




N8B6 


ZERO WITH /eooo 




0E7D 





4C18 


0E82 




BSC 


1. 


J882.E- 


BRANCH ON ZERO 




0E7F 





4400 


0F69 




BSI 


L 


FOOO 


ACC NOTff/8000 




0E81 





3144 






DC 




/3144 


ERR ID 




0E82 





4400 


0F98 


J882 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0E84 





70F3 






MDX 




B882 


LOOP 




0E85 





1800 






RTE 




16 


NOW Aff/OOOO Off/8000 




0E86 





4C18 


OEBB 




BSC 


L 


J884,t- 


BRANCH ON ZERO 




0E88 





4400 


OF 69 




BSI 


L 


FOOO 


REG NOTffOOOO 




0E8A 





3145 






DC 




/3145 


ERR ID 




0E8B 





4400 


0F98 


J884 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0E80 





70EA 






MDX 




B882 


LOOP 




0E8E 





6938 






STX 


1 


N880 


STORE CXXR la AT N880 




0E8F 





C037 






LD 




N880 


LO CXN880D 




0E90 





F400 


0ED4 




EOR 


L 


N88E 


ZERO WITH /FF01 




0E92 





4C18 


0E97 




BSC 


L 


J886.E- 


BRANCH ON ZERO 




0E94 





4400 


0F69 




BSI 


L 


FOOO 


XR-1 NOT FF01 




0E96 





3146 






DC 




/3146 


ERR ID 




0E97 





4400 


0FC4 


J886 


BSI 


L 


F005 


CK LOCK ON ERROR 




0E99 





700 E 






MDX 




8882 


LOOP 












••*••••***«*•*»*«*•«********••»*•*•••**»*••*• 




0E9A 





C835 




B884 


LOD 




N88A 


LD Aff/OOOO Off/0002 




0E9B 





611F 






LDX 


1 


31 


LD XR 1 WITH /001F 




0E9C 





11C0 






SLC 


1 





NOW Aff/8000 Off/0000 




0E9D 





4802 






BSC 




C 


SK IF CARRY OFF 




0E9E 





7003 






MDX 




J887 


CARRY ON 




0E9F 





4400 


0F69 




BSI 


L 


FOOO 


CARRY NOT ON 




0EA1 





3147 






DC 




/3147 


ERR ID 




0EA2 





4400 


0F98 


J887 


BSI 


L 


FOOE 


CK LOCK ON ERROR 




0EA4 





70F5 






MDX 




B884 


LOOP 




0EA5 





F026 






EOR 




N886 


ZERO WITH /8000 




0EA6 





4C18 


OEAB 




BSC 


L 


J888,C- 


BRANCH ON ZERO 




0EA8 





4400 


OF 69 




BSI 


L 


FOOO 


ACC NOT EQUAL 8000 


DATE 


02JAN66 01MAY66 


15N0V66 


15FEB68 26AUG68 


EC NO. 


415490 


415490C 


419643 


420403 420403A 



3A153740 

3A153750 

3A153760 

3A153770 

3A153780 

3A153790 

3A153800 

3A153810 

3A153820 

3A153830 

3A153840 

3A153850 

3A153860 

3A153870 

3A153880 

3A153890 

3A153900 

3A153910 

3A153920 

3A153930 

3A1 53940 

3A153950 

3A153960 

3A153970 

3A153980 

3A153990 

3A154O00 

3A154010 

3A154020 

3A 154030 

3A154040 

3A154050 

3A154060 

3A154070 

3A154080 

3A154090 

3A154100 

3A154110 

3A154120 

3A1S4130 

3A154140 

3A154150 

3A154160 

3A154170 

3A1 54180 

3A154190 

3A1 54200 

3A154210 

3 Al 54220 

3A154230 

3A1 54240 

3A154250 

3A1 54260 

3A154270 

3A1542B0 

3A154290 

3A1 54300 

3A154310 

3A154320 

3A154330 

3A1 54340 

3A154350 

3A1 54360 

3A154370 

3A154380 

3A154390 

3A 154400 

3A154410 



PROG 10 
PAGE 
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DATE 
EC NO. 



OEAA 





3148 






DC 




/3148 


ERR ID 


3A154420 




OEAB 





4400 


0F98 


J888 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A154430 




OEAD 





70EC 






MOX 




B884 


LOOP 


3 A 154440 




OEAE 





6D00 


0EC7 




STX 


LI 


N880 


STORE XR 1 WITH CXN880O 


3A154450 




OEBO 





C016 






LD 




N880 


LD CZN880O 


3A1 54460 




0EB1 





F018 






EOR 




N884 


ZERO WITH /0001 


3A 154470 




0EB2 





4C18 


0EB7 




BSC 


L 


J889.C- 


BRANCH ON ZERO 


3A1 54480 




0EB4 





4400 


OF 69 




BSI 


L 


FOOO 


XR 1 NOT EQUAL 0001 


3A 154490 




0EB6 





3149 






DC 




/3149 


ERR ID 


3A1 54500 




0EB7 





4400 


0FC4 


J889 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A154510 




0EB9 





70E0 






MOX 




B884 


LOOP 


3A154320 












»»»»»»»»»»»»»«»»•»*»*»»**»»»*»»»»»*»»»»*»»*»• 


3A154530 




OEBA 





611C 




B885 


LOX 


1 


28 


LD XR 1 WITH /001C 


3A1 54540 




OEBB 





C814 






LDD 




N88A 


LO AD/0000 Q*/0002 


3A1S4550 




OEBC 





1100 






SLA 


1 





NOW AD/2000 Oi/0000 


3A1 54560 




OEBO 





4802 






BSC 




c 


SKIP IF CARRY OFF 


3A154570 




OEBE 





7001 






MOX 




J88A 




3A154580 




OEBF 





7003 






MDX 




J88B 




3A 154590 




OECO 





4400 


OF 69 


J88A 


BSI 


L 


FOOO 


CARRY IS ON 


3A1 54600 




0EC2 





314A 






DC 




/314A 


ERR ID 


3A 1546 10 




0EC3 





4400 


0FC4 


J88B 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A 154620 




0EC5 





70 F4 






MDX 




B885 


LOOP 


3 A 1546 30 




0EC6 





700F 






MDX 




B8A0 


EXIT TO NEXT ROUTINE 


3AI 54640 




0EC7 





0000 




N880 


DC 




/OOOO 


STORAGE 


3A 1546 50 




OECB 




0000 






BSS 


E 






3A15466C 




OECB 





0000 




N882 


DC 




/OOOO 




3A 154670 




0EC9 





FFFF 






DC 




/FFFF 




3A1 54680 




OECA 





0001 




N884 


DC 




/0001 




3A 154690 




OECB 





0010 




N885 


DC 




/0010 




3A1 54700 




OECC 





8000 




N886 


DC 




/8000 




3A154710 




OECD 





FFOO 




N887 


DC 




/FFOO 




3A154720 




OECE 





0000 




N888 


DC 




/OOOO 




3A154730 




OECF 





0000 




N88A 


DC 




/OOOO 




3A1 54740 




OEOO 





0000 




DC 




/OOOO 




3A154750 




0ED1 





0002 




; N88B 


DC 




/0002 




3A1 54760 




0ED2 





0020 




N88C 


DC 




/0020 




3A154770 




0ED3 





FFDF 




N88D 


OC 




/FFDF 




3A154780 




0ED4 





FF01 




N88E 


DC 




/FF01 




3A154790 




0ED5 





7FFF 




N88F 


DC 




/7FFF 




3A154800 












»**»»*»»**»»»*»*»»»»»»»*»»*»»«»»»»»»»»»»»»»»« 


3A 1548 10 












»*»»»»»»»•»»♦»»»*»»»»»»»»»»»«♦»*»«»»***»*»»»» 


3A154820 












• 










3A154830 












• 






TEST 


COMPARE INSTRUCTION 


3A154840 












• 










3A154850 












* 


A 


• 


ACCUMULATOR 


3A1 54860 












• 





• 


ACCUMULATOR EXTENTION 


3A154870 












• 


M 


* 


WORD BEING 


COMPAREO 


3A154880 












* 


MSI 


• 2ND WORD 


ON OCN 


3A154890 












• 










3AL54900 












* 






THE 1800 HAS A COMPARE INSTRUCTION 


3A 1549 10 












• 






BUT THE 1130 DOES NOT. THIS ROUTINE 


3A1 54920 












• 






DETERMINES WHICH MACHINE IS BEING 


3A154930 












• 






TESTED BEFORE ATTEMPTING A COMPARE 


3A154940 












• 






INSTRUCTION. 


3A154950 












• 










3A154960 












* 






INDEX REGISTERS ARE HARDWARE IN 1800 


3A 1549 70 












• 






AND CORE : 


STORAGE LOCATIONS IN 1130. 


3A154980 












• 










3A154990 




••••••••••••••a******************************************************** 


3A155000 




CORE 




DATA OR 


*LA- 


OPER- 








3A155010 




ADOR 




INSTRUCTION 


*BEl 


ATION 


Fl 


OPERANDS i 


1 REMARKS ID&SEQ* AT RIGHT 


3A155020 




•••••••••••••••••a***************************************************** 


3A155030 




0ED6 





1810 




B8A0 


SRA 




16 


CK FOR 1130 OR 1800 


3A155040 




0ED7 





0400 


0001 




STO 


L 


/0001 


STORE /OOOO AT ADDR /0001 


3A155050 




0E09 





61FF 






LOX 


I 


-1 


LD XR 1 WITH /FFFF 


3A155060 




OEOA 





C400 


0001 




LD 


L 


/0001 


LD cs/ooom 


3A155070 




OEOC 





4C20 


0F5C 




BSC 


L 


M8C0,Z 


BRANCH IF 1130 


3A155080 




OEDE 





C072 






LD 




N8A2 


LD CSN8A20 /4000 


3A155090 




02JAN66 i 


01NAV66 


15N0V66 


15FEB6B 26AUG68 


PROG ID 


03A1-1 


415490 


U5490C 


419643 


420403 420403A 
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OEDF 





B075 




OEEO 





7004 




0EE1 





1000 




0EE2 





4400 


OF 69 


0EE4 





314B 




0EE5 





4400 


0F98 


0EE7 





70EE 




0EE8 





F068 




0EE9 





4C18 


0EF1 


OEEB 





4400 


OF 69 


OEED 





314C 




OEEE 





4400 


0FC4 


06F0 





70E5 




0EF1 





C063 




0EF2 





BO 50 




0EF3 





7001 




0EF4 





7003 




0EF5 





4400 


OF 69 


0EF7 





314D 




0EF8 





4400 


0FC4 


OEFA 





70 F6 




OEFB 





CO 59 




OEFC 





BOS 5 




OEFD 





7001 




OEFE 





7003 




OEFF 





4400 


0F69 


0F01 





314E 




0F02 





4400 


0FC4 


0F04 





70F6 




0F05 





C04F 




0F06 





B04A 




0F07 





7001 




0F08 





7003 




0F09 





4400 


OF 69 


OF OB 





314F 




OFOC 





4400 


0FC4 


OFOE 





70 F6 




OFOF 





C044 




0F10 





B044 




OF 11 





7001 




0F12 





7003 




0F13 





4400 


OF 69 


0F15 





3150 




0F16 





4400 


0FC4 


0F1B 





70F6 




0F19 





C036 




0F1A 





BO 35 




0F1B 





7002 




0F1C 





7001 




0F1D 





7003 




0F1E 





4400 


OF 69 


0F20 





3151 




0F21 





4400 


0FC4 


0F23 





70F5 





JBAO 



CMP 

MOX 

SLA 

BSI 

DC 

BSI 

MDX 

EOR 

BSC 

BSI 

DC 

BSI 

MDX 



N8A0 A GREATER THAN M 

J8A0 A GREATER THAN M 

A LESS THAN M 

FOOO A GREATER THAN M FAILED 

/314B ERR ID 

FOOE CK LOCK ON ERROR 

B8A0 LOOP 

N8A2 ZERO WITH /4000 

B8Al,t- BRANCH ON ZERO 

FOOO ACC CHANGED ERROR 

/314C ERR ID 

F005 CK LOCK ON ERROR 

B6A0 LOOP 



B8A1 LD N8A0 N8A0 C/0000 

CMP N8A1 N8A1 */1000 

MDX J8A2 A LESS THAN M FAILED 

MOX J8A1 A LESS THAN M 

JSA2 BSI L FOOO A LESS THAN M FAILED 

DC /314D ERR ID 

J8A1 BSI L F005 CK LOCK ON ERROR 

MOX B8A1 LOOP 

»***»***»*»»*»»»«*«»»»»»*»»»»♦«**»»*******»»* 

B8A2 LO N8A0 NBAC #/0000 

CMP N8A3 N8A3 0/2000 

MDX J8A4 A LESS THAN H FAILED 

MOX J8A3 A LESS THAN M 

J8A4 BSI L FOOO A LESS THAN M FAILED 

DC /314E ERR 10 

J8A3 BSI L F005 CK LOCK ON ERROR 

MDX 68A2 LOOP 

B8A3 LD N8A0 N8A0 t/0000 

CMP N8A2 N8A2 f/4000 

MDX J8A6 A LESS THAN M FAILED 

MDX J8A5 A LESS THAN M 

J8A6 BSI L FOOO A LESS THAN M FAILED 

DC /314F ERR ID 

J8A5 BSI L F005 CK LOCK ON ERROR 

MDX BBA3 LOOP 

B8A4 LO N8C5 LO /8000 

CMP N8A0 COMPARE CSN8A0O /OOOO 

MDX J8A8 A LESS THAN M FAILED 

MDX J8A7 A LESS THAN M 

J8A8 BSI L FOOO A LESS THAN M FAILED 

DC /3150 ERR ID 

J8A7 BSI L F005 CK LOCK ON ERROR 

MDX B8A4 LOOP 



LD /1000 

CMP /1000 

A EQUAL M FAILED 

A EQUAL M FAILED 

A«M 

A#M FAILED 

ERR ID 

CK LOCK ON ERROR 

LOOP 



B8A5 LD N8A1 

CMP N8A1 

MDX J8AA 

MDX J8AA 

MDX J8A9 

J8AA BSI L FOOO 

DC /3151 

J8A9 BSI L F005 

MDX B8A5 

• TEST OOUBLE COMPARE 

CORE DATA OR »LA- OPER- 

AODR INSTRUCTION *BEL ATION FT OPERANDS 6 REMARKS IDCSEO* AT RIGHT 

0F24 CB31 B8C0 LDD N8C6 LD Af/8000 Qt/0001 



3A155100 
3A155110 
3A155120 
3A15S130 
3A155140 
3A155150 
3A155160 
3A155170 
3A155180 
3A155190 
3A155200 
3A155210 
3A155220 
3A155230 
3A155240 
3A155250 
3A155260 
3A155270 
3A155280 
3A155290 
3A155300 
3A155310 
3A155320 
3A 155330 
3A155340 
3A155350 
3A155360 
3A 155370 
3A155380 
3A155390 
3A155400 
3A155410 
3 A 155420 
3A155430 
3A155440 
3A155450 
3A155460 
3 A 15 5470 
3A155480 
3A155490 
3A155500 
3A155510 
3A155520 
3A155530 
3A155540 
3A155550 
3A155560 
3A155570 
3A155580 
3A155590 
3A155600 
3A155610 
3A155620 
3A155630 
3A1S5640 
3A 15 5650 
3A155660 
3A155670 
3A155680 
3A 15 5690 
3A155700 
3A155710 
3A155720 
3A155730 
3A155740 
3A155750 
3A155760 
3A155770 



DATE 
EC NO. 



02JAN66 
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01MAY66 
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15N0V66 
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15FEB68 
420403 
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DATE 

EC NO. 



0F25 





BB2E 






OCM 




N8C5 


AO GREATER THAN M, MCI 


3A155780 




0F26 





7003 






MOX 




J SCO 




3A155790 




0F27 





1000 






SLA 







NO-OP 


3A155800 




0F28 





4040 






BSI 




FOOO 


FAILED A.Q NOT GREATER 


3A155810 




OF29 





3152 






DC 




/3152 


ERR ID 


3A155820 




0F2A 





4400 


0F98 


J8C0 


BSI 


I 


FOOE 


CK LOCK ON ERROR 


3A15S830 




0F2C 





70F7 






MOX 




B8C0 


LOOP 


3A 155840 




0F2D 





F028 






EOR 




N8C6 


ZERO WITH /8000 


3A155850 




0F2E 





4C18 


0F32 




BSC 


L 


JBClt E- 


BRANCH ON ZERO 


3A155860 




OF 30 





4038 






BSI 




FOOO 


ACC CHANGED 


3A155870 




0F31 





3153 






DC 




/3153 


ERR ID 


3A155880 




OF 32 





4400 


0F98 


J8C1 


BSI 


L 


FOOE 


CK LOCK ON ERROR 


3A155890 




0F34 





70EF 






MOX 




B8C0 


LOOP 


3A155900 




0F35 





1BD0 






RTE 




16 


NOW AK/0001 QD/OOOO 


3A155910 




0F36 





F020 






EOR 




N8C6C1 


ZERO WITH /0001 


3A155920 




0F37 





4C18 


0F3B 




BSC 


L 


J8C2.C- 


BRANCH ON ZERO 


3A155930 




0F39 





402 F 






BSI 




FOOO 


REG CHANGED 


3A155940 




OF 3 A 





3154 






DC 




/3154 


ERR ID 


3A155950 




0F3B 





4400 


0FC4 


J8C2 


BSI 


L 


F005 


CK LOCK ON ERROR 


3A155960 




OF 3D 





70E6 






MDX 




B8C0 


LOOP 


3A 1559 70 












*»**»»»*»»»*»*»*»**»»»»»»»»»»•»*»»»»»»*»»#*»» 


3A155980 




0F3E 





C819 




B8C1 


LOD 




N8C7 


LD AO/0000 Qi/8000 


3A155990 




0F3F 





B81A 






DCM 




N8C8 


A,0 LESS THAN M, MCI 


3A156000 




0F40 





7001 






MOX 




J8C3 


A.O GREATER THAN M,M£1 


3A156010 




0F41 





7002 






MDX 




J8C4 


A.Q LESS THAN M.Mtl 


3A156020 




0F42 





4026 




J8C3 


BSI 




FOOO 


FAILED A,0 GREATER 


3A 156030 




0F43 





3155 






DC 




/3155 


ERR ID 


3A1 56040 




0F44 





40 7F 




J8C4 


BSI 




F005 


CK LOCK ON ERROR 


3A156050 




0F45 





70F8 






MDX 




B8C1 


LOOP 


3A156060 












••*••••*•**••*••***•«*•••*****•*•**••***•**•• 


3A156070 




0F46 





C811 




B8C2 


LOO 




N8C7 


LD Af/OOOO 00/8000 


3A156080 




0F47 





B810 






DCM 




N8C7 


A.O EOUOL M.Mtl 


3A156090 




0F48 





7002 






MDX 




J8C5 


A.O GREATER 


3A156100 




0F49 





7001 






MOX 




J8C5 


A.O LESS 


3A 1561 10 




0F4A 





7002 






MOX 




J8C6 


A.O • M.Mtl 


3A156120 




0F4B 





40 ID 




J8C5 


BSI 




FOOO 


A.O • M.Mtl FAILED 


3A156130 




0F4C 





3156 






DC 




/3156 


ERR ID 


3A156140 




0F40 





4076 




J8C6 


BSI 




F005 


CK LOCK ON ERROR 


3A156150 




0F4E 





70F7 






MDX 




B8C2 


LOOP 


3A156160 




0F4F 





700C 






MOX 




H8C0 


EXIT TO NEXT ROUTINE 


3A156170 




0F50 





1000 




N8A1 


DC 




/1000 




3A1561B0 




0F51 





4000 




N8A2 


DC 




/4000 




3A156190 




0F52 





2000 




N8A3 


DC 




/2000 




3A156200 




OF 54 




0000 






BSS 


E 







3A 1562 10 




0F54 





8000 




N8C5 


DC 




/BO 00 




3A156220 




0F55 





0000 




N8A0 


DC 




/OOOO 




3A156230 




0F56 





8000 




N8C6 


DC 




/8000 




3A1 56240 




OF57 





0001 






DC 




/0001 




3A 1562 50 




0F58 





0000 




N8C7 


DC 




/OOOO 




3A156260 




OF 59 





8000 






DC 




/8000 




3A156270 




0F5A 





0000 




N8C8 


DC 




/OOOO 




3A1 56280 




0F5B 





8001 






DC 




/8001 




3A 156290 












»*•****»»»»»*»»»**»»»»»»»»»»»»»**»»»»**»♦»**» 


3A156300 












•*«*•**••*••*•****•***••*•**•«*•#*«*•******»* 


3A156310 




•••*•***•*••••*•******•••*••***•••*•••*•*******••*•*«*****•*«••••**•*** 


3A156320 




CORE 




DATA 


OR 


*LA- 


OPER- 








3A156330 




A DDR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS £ REMARKS IDtSEQf AT RIGHT 


3A156340 




•»»»»•••»»••*•*•*»»»»*»»*»»»»»»»»*»♦**»»*»*»»»»»»»»»»*»*»*»»***»»#»»»*» 


3A156350 




0F5C 





0809 




H8C0 


XIO 




N8C1 


REAO SWITCHES 


3A156360 




0F50 





COOA 






LD 




N6C3 


LO SW BITS 


3A156370 




0F5E 





1804 






SRA 




4 


PLACE SW 11 AT BIT 15 POS. 


3A156380 




0F5F 





4804 






BSC 




E 


IS SWITCH 11 ON 


3A156390 




0F60 





7002 






MDX 




M8C4 


SWITCH 11 ON 


3A1 56400 




0F61 





C003 






LD 




2020 


SWITCH 11 IS OFF-WAIT 


3A156410 




OF 62 





3003 




X007 


DC 




/3003 


PROGRAM FINISHED 


3A1S6420 




0F63 





4C00 


0154 


W8C4 


BSC 


L 


A 140 




3A156430 




0F65 





0003 




2020 


OC 




/0003 




3A156440 




OF 66 




0000 






BSS 


E 






3A1 56450 




02JAN66 01MAV66 


15N0V66 


15FEB68 


26AUG68 


PROG ID 


03A1-1 


415490 415490C 


419643 


420403 


420403A 
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0F66 





0F68 


N8C1 


DC 


NSC 3 


0F67 





0240 


NBC 2 


DC 


/0240 


0F68 





OOOO 


N8C3 

• 


DC 


/OOOO 








• 
• 




OF 69 





OOOO 


• 

FOOO 


OC 





0F6A 





2816 




STS 


FOOX 


0F6B 





DO 63 




STO 


UOOO 


0F6C 





1800 




RTE 


16 


Or 60 





DO 62 




STO 


U001 


0F6E 





0863 




XIO 


F003 


0F6F 





CO 65 




LD 


ZOOO 


0P70 





1807 




SRA 


7 


0F71 





4804 




BSC 


E 


0F72 





7012 




MDX 


FOOA 


0F73 





C480 0F69 




LD I 


FOOO 


0F75 





DOOC 




STO 


F002 


0F76 





C0F2 




LO 


FOOO 


0F77 





001F 




STO 


UOOB 


OF 78 





80 5B 




A 


U006 


OF 79 





DOEF 




STO 


FOOO 


OF 7 A 





C05A 


FOOL 


LO 


ZOOO 


0F7B 





1801 




SRA 


1 


0F7C 





4804 




BSC 


E 


0F7D 





700D 




MDX 


FOOF 


0F7E 





C051 




LD 


U001 


0F7F 





1800 




RTE 


16 


OFBO 





C04E 




LD 


UOOO 


0F81 





2000 


FOOX 


LDS 





0F82 





3000 


F002 

* 


WAIT 





0F83 





4C80 0F69 


e 


BSC I 


FOOO 



EQUAL /3A00 IN 1130 



ERROR CONTROL ROUTINE 

REENTER ADDRESS 
SAVE STATUS 
SAVE A REG 

SAVE REG 

READ SWITCHES 

LD SW READINGS 

PLACE SW 8 AT BIT POS 15 

CK LOOP ON INSTRUCTION 

* BEING TESTED SW 
GET WAIT ERROR ID 
STORE ERROR 10 AT F002 
GET RETURN ADDR 
STORE AT UOOB 

ADD ONE 

STORE NEW RETURN AODRESS 

CK BYPASS ERROR SW 

PLACE SW 14 AT BIT POS 15 

SKIP IF SW 14 OFF 

CK FOR 8 OR 12 ON ALSO 

RESTORE REG AND WAIT 

PLACE IN Q REG 

RESTORE A REG 

RESTORE C AND OF INO. 

ERROR WAIT B REG 

* SHOWS ERROR ID 
EXIT FROM ROUTINE 

* CXFOOODIS NOW ONE 

* GREATER THAN AT THE 

* BEGINNING OF ROUTINE 



LOOP ON INSTRUCTION BEING 
* TESTED 



«»*»»»»»***»**»»******»***♦»*»*»»»«*»*»»»»*»»******»»*»»»»»»»*»»»»*»•»» 

CORE DATA OR *LA- OPER- 

ADOR INSTRUCTION »8EL ATION FT OPERANDS £ REMARKS ID£SEO» AT RIGHT 

»**»*♦******»**»*»******»*»»*»*»*»»»»»*»*»»»*»**»»***»»»***»*»»»**»♦»»» 



0F85 
0F86 
0F87 
0F88 
0F89 

0F8B 
0F8C 
OFBD 
0F8E 
0F8F 
0F90 
0F91 
0F92 
0F93 
0F94 
0F95 
0F96 
0F97 



C0E3 
D010 
8000 
DOEO 
4C80 0F69 

1802 
4804 
70F5 
1804 
4804 
70F2 
C043 
OOOO 
083E 
70E5 
0003 
FFFD 
OOOO 



FOOA 



FOOF 



U003 
UOOA 
UOOB 



LD FOOO GET RETURN ADDR AT FOOO 

STO UOOB STORE RETURN ADDRESS 

A U003 ADD 3 

STO FOOO UPDATE RETURN ADDRESS 

BSC I FOOO BR TO UPDATAD ADDRESS 

CK FOR SW 8 OR 12 

SRA 2 PLACE SW 12 AT BIT POS IS 

BSC E SKIP IF SW 12 OFF 

MDX FOOB BR TO EXIT IF SW 12 ON 

SRA 4 PLACE SW 8 AT BIT POS 15 

BSC E SKIP IF SW 8 OFF 

MDX FOOB BR TO EXIT IF SW 8 ON 

LD ZOOO LD SWITCH REAOINGS 

OC IMPROPER BIT SWS. 14 ON 

XIO F003 'WITHOUT 8 OR 12 ON 

MOX FOOL 

DC 3 CONSTANT 3 

DC -3 CONSTANT -3 

DC ERROR OCCURED CONTROL 



3A156460 
3A 156470 
3A156480 
3 A 156490 
3A156500 
3A1S6510 
3A156520 
3A 156530 
3A1 56540 
3A156550 
3A1 56560 
3A156570 
3A1565B0 
3A156590 
3A1 56600 
3A 1566 10 
3A156620 
3A 156630 
3A 156 640 
3A156650 
3A156660 
3A 156670 
3A156680 
3A156690 
3A156700 
3A156710 
3A156720 
3A 156730 
3 Al 56740 
3A156750 
3A156760 
3A156770 
3A1 56780 
3A 156790 
3A156800 
3A156B10 
3A156820 
3A156830 
3A156840 
3A156850 
3A156860 
3A156870 
3A156880 
3A156890 
3A1 56900 
3A156910 
3A156920 
3A 156930 
3A156940 
3A156950 
3 A 156960 
3A156970 
3A156980 
3A156990 
3 A 157000 
3A157010 
3A1 57020 
3A1570^0 
3A1 57040 
3A 15 7050 
3A1 57060 
3A157070 
3A1 57080 
3A157090 
3A157100 
3A157110 
3A157120 
3A157130 



DATE 
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••••••••a*********************************** 



» 
* 



LOCK ON ERROR RT 



CORE OATA OR »LA- QPER- 

ADDR INSTRUCTION *BEL ATION FT OPERANDS t REMARKS IDCSEQ* AT RIGHT 

•••••••••••••••••••••a************************************************* 



0F98 0000 
0F99 281A 
0F9A D03B 
0F9B 1BD0 
0F9C D03A 



FOOE 



DC 

STS 

STO 

RTE 

STO 





FOOH 
UOOX 
16 

uooxei 



CONTAINS RETURN ADORESS 
SAVE REGS C AND OF 

ACCUMULATOR 

ACC EXTENT ION 



*»»»***»**»*»»»****»»»»»*»******«■**»**»*«***»»»»** 



* 



SET UP FOR RESTART 



TO RESTART — PRESS STOP» RESET AND START. 



0F9D C03A 
0F9E D400 0000 
OFAO C038 
0FA1 0400 0004 
0FA3 C036 
0FA4 0400 0005 



LD 



RST1 



STO L /OOOO 



LD 



RST2 



STO L /0004 



LD 



RST2C1 



STO L /0005 



LO /6004 



STO IN WORD ZERO 



LD /4C00 

STO IN WORD FOUR 



LD /012C 



STO IN WORD FIVE 



READ SNITCHES 

CK LOOP ON INST BEING 

* TESTED SW 
SKIP IF EVEN 
EXIT TO LOOP INST 
CK IF ERROR HAS 

* OCCURRED 

GOT RETURN ADDR 
ADD ONE 

STORE RETURN ADDRESS 
RESTORE REGS 



SET C AND OF OFF 

BR TO RETURN ADDRESS 

CHECK LOCK ON ERROR SN 

SHIFT BIT 12 TO POS 15 

SKIP IF OFF 

ERROR SN SB 12o ON 

RESET ERROR OCCURRED 

* CONTROL 

BR TO GET RETURN ADDRESS 
GOT ADDR 
ADO MINUS THREE 
COMPARE TO ERR CONTR 

• ADDR 

SKIP ON ZERO 
BR TO GET RETURN ADDRESS 
EXIT 

• 

»»»»»»**»»»»*»»»»*»»**»»»»»»»»**»»»»*♦*»»»»»» 
• CK LOOP RT. SH RT 

••••a****************************************************************** 



0FA6 





082B 




XIO 


F003 


0FA7 





C02D 




LO 


ZOOO 


0FA8 





1807 




SRA 


7 


0FA9 





4804 




BSC 


E 


OFAA 





70 OA 




MOX 


F008 


OFAB 





COEB 




LD 


UOOB 


OFAC 





4820 




BSC 


Z 


OFAD 





7009 




MOX 


F009 


OFAE 





C0E9 


FOOK 


LO 


FOOE 


OFAF 





8024 




A 


U006 


OFBO 





D0E7 




STO 


FOOE 


0FB1 





C025 




LD 


UOOXCl 


0FB2 





1800 




RTE 


16 


0FB3 





C022 




LD 


UOOX 


0FB4 





2000 


FOOH 


LDS 





0FB5 





4C80 0F98 


F008 


BSC 1 


1 FOOE 


0FB7 





C01D 


F009 


LD 


ZOOO 


0FB8 





1803 




SRA 


3 


0FB9 





4804 




BSC 


E 


OFBA 





7003 




MDX 


FOOC 


OFBB 





1810 




SRA 


16 


OFBC 





DODA 




STO 


UOOB 


OFBD 





70 FO 




MOX 


FOOK 


OFBE 





C0D9 


FOOC 


LO 


FOOE 


OFBF 





8006 




A 


UOOA 


OFCO 





F006 


» 


EOR 


UOOB 


0FC1 





4820 


BSC 


z 


0FC2 





70 EB 




MDX 


FOOK 


0FC3 





70F1 




MDX 


F008 



3A157140 

3A157150 

3A157160 

3A157170 

3A1571B0 

3A157190 

3A157200 

3A157210 

3A157220 

3A157230 

3A157240 

3A157250 

3A157260 

3A157270 

3A157280 

3A157290 

3A157300 

3A157310 

3A 157 320 

3A157330 

3 A 157 340 

3A157350 

3A157360 

3A 157370 

3A157380 

3A157390 

3A157400 

3A157410 

3A157420 

3A 157430 

3A1 57440 

3A157450 

3A157460 

3A 157470 

3A1 57480 

3A 157490 

3A 157 500 

3A157510 

3A1S7520 

3A157530 

3A 157 540 

3A157550 

3A157560 

3A157570 

3A157580 

3A157590 

3 Al 57600 

3A157610 

3A157620 

3A 157630 

3A157640 

3A157650 

3A1 57660 

3A157670 

3A157680 

3A157690 

3A157700 

3A157710 

3A157720 

3A157730 

3A157740 

3A157750 

3A1 57760 

3A157770 

3A157780 

3A157790 

3A157800 

3A157810 



ADDR 




INSTRUCTION 


*BEL 


ATION 


FT 


OPERANDS t. < 


***»*»»»»»»»»»»»»»»*»»»*»*»**»*»»»»»**#»»*»*» 


0FC4 





0000 




F005 


DC 







0FC5 





080C 




£ 


XIO 




F003 


0FC6 





COOE 






LD 




ZOOO 


0FC7 





1805 






SRA 




5 


0FC8 





4804 






BSC 




E 


0FC9 





7003 






MDX 




FOOG 


OFCA 





C0F9 






LD 




F005 


OFCB 





DOCC 






STO 




FOOE 


OFCC 





70CC 






MDX 




F00EC1 


OFCD 





4C80 


0FC4 


FOOG 

41 


BSC 


1 


F005 


OFCF 





0000 




UOOO 


DC 




/OOOO 


OFDO 





0000 




U001 


DC 




/OOOO 


OF 02 




0000 






BSS 


E 




0FD2 





0FD5 




F003 


DC 




ZOOO 


0FD3 





0240 




F004 


DC 




/0240 


0FD4 





0001 




U006 


DC 




/0001 


0FD5 





0000 




ZOOO 


DC 




/OOOO 


0FD6 




0002 




UOOX 


BSS 




2 


0FD8 





6004 




RST1 


LDX 




/0004 


0FD9 





4C00 


012E 


RST2 


BSC 


L 


A080 


OFDC 




0120 






END 




XOOO 


NO STATEMENTS FLAGGED IN 


THE 


ABOVE ASSEMBLY 



REMARKS 1D&SE0* AT RIGHT 

WILL CONTAIN RETURN ADDR 
READ SMS - PLACE IN LABEL 

• ADDRESS ZOOO 
CK LOOP ROUTINE SH 
CHECK FOR BIT 11 
NO SKIP FOR LOOP 
LOOP ROUTINE SWITCH ON 
LO RETURN ADDRESS 
SAVE FOR LOCK ON ERROR RTN 
BR TO SAVE REGISTERS 
BR TO MAIN PROGRAM 

* RETURN ADDRESS 
A REG SAVED HERE 
REG SAVEO HERE 



EQUAL /3A00 IN 1130 

SW READING STORED HERE 
SAVED FOR ACO STORAGE 



3A157820 
3A157B30 
3A157840 
3A157850 
3A157860 
3A157870 
3A157880 
3A157890 
3A157900 
3A157910 
3A1 57920 
3A157930 
3A1 57940 
3A157950 
3A157960 
3A157970 
3A15798C 
3A157990 
3A1 58000 
3A158010 
3A1 58020 
3A158030 
3A1 58040 
3A158050 
3A1 58060 
3A158070 
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c a o 

NAME 
AOCO 
A080 
A1C0 
A100 
A1E0 
A1F0 
A100 
A140 

A180 

A2CC 
A2C0 
A 204 
A2C8 
A200 

A240 
A280 
A281 
A2B2 
A283 
A 2 84 
A3C0 
A3C4 
A300 
A302 
A30< 
A340 
A3BC 
A380 
A384 
A388 
A4CC 
A4C0 
A4C2 
A4C8 
A400 
A408 
A44A 
A440 
A 444 
A480 
A482 
A5C0 
A5C4 
A5C8 
A50A 
A50C 
A50E 
A500 
A502 
A504 
A508 
A54A 
A54C 
AS4E 
A54F 
A540 
A544 
A546 
A548 
A5B0 
A584 
A588 
A6C0 



S S 

VALUE 

013F 

012E 

01EB 

01F5 

0214 

0220 

014C 

0154 

01A0 

0336 
0318 
0322 
032C 
0220 

0270 
0208 
02E2 
02ED 
02F8 
0303 
03DC 
03F3 
0344 
034E 
03S9 
0367 
03BC 
0380 
0395 
03A8 
05A7 
055F 
056 B 
059.0 
0412 
0433 
04F9 
04B0 
040 A 
0542 
054E 
0730 
0751 
076A 
05FC 
0619 
0620 
05C4 
05CF 
050A 
05F1 
06BB 
06CD 
06DF 
06F1 
0660 
0681 
0696 
06A9 
0704 
0717 
072B 
0954 



REFERENCE 
REFERENCES 

01 3A.300F, 3010, 3011. 

0F09 , 3004, 3005 ,3006, 

01E9,3030,303E 

303F, 3040, 3041, 

0210,3046,3047 

02 ID, 3048, 3049 
3014,3015 
3016,3017,3018, 
3023,3024,3025, 
302A,302B,302C, 
3038, 3039, 303A, 
3072 

0321, 306F 
3070 
3071 

304A,304B,304C, 
3057,3058,3059, 
3060,3061,3062, 
02C6,02E1,306A 
306B 
306C 
306D 
306E 

03E8,03F2*30SO* 
0409,3082,3083 
0340*3073 
3074 
3075 

,0372, 037C, 3076. 
0304,307E,307F 
038A, 0394,3078, 
03A7.307A.307B 
03BB.307C307D 
05B0,30A8,30A9 
056A.30A1 
056E,057C,0S85, 
05A6,30A6,30A7 
041F, 0427, 0432, 
0449,0452,3087, 
050E, 0518, 3099, 
04C8,04DO,04D9, 
04EF,04F8,3096, 
0540, 309F 
30AO 

0750.30CE.30CF 
0769,3000,3001 
0783,3002,3003 
060E,30AF,30BO, 
0625,062C,30B1, 
0639,0640, 30B3, 
05CE.30AA 
30AB 

05F0,30AC,30A0 
30AE 

06C4,06CC,30C0, 
0606,060E,30C2, 
06E8.06F0.30C4, 
06FB,0703,30C6, 
0657, 066B, 0672, 
068C,0693,30BA, 
0694.06A1.06A8, 
06B2,06BA,30BE, 
0700, 0716, 30C8, 

0720,072A,30CA,30C8 

0733,073C,30CC,30CD 

0944,0948, 0964,0966, 



3013 
0F63 
3022 
019E 
3037 
0340 
0311 
032B 
0335 
0229 
3056 
02 68 
028B 
02 EC 
02F7 
0302 
0310 
0305 
0400 
0341 
0358 
0363 
0364 
03CA 
0370 
039E 
03B1 
05B4 
055B 
056B 
059D 
040A 
0441 
0505 
04B5 
04E6 
053B 
055A 
0747 
075F 
0779 
0607 
0618 
0626 
05BF 
05D9 
05E5 
05FB 
06B3 
06C5 
0607 
06E9 
0650 
066C 
068D 
06A2 
06FC 



3012 

3007, 3008, 3009, 300A,300B,300C,300D,300E 

3042,3043,3044,3045 



3*>19, 301A,301B,301C,301D,301E,301F, 3020, 3021 
3026, 3027, 3028, 3029, 302E 

3020, 302F, 3030, 3031, 3032,3033,3034, 3035, 30 36 
3036, 303C 



3040, 304E.304F, 3050, 3051, 3052, 3053, 3054, 3055 

305A,305B,305C,305D,305E,305F 

3063,3064 



3061 

3077 
3079 

058F , 30A2, 30A3, 30*4*30*5 

3064*3085,3086 

3086,3089 

3 09 A, 3098 

3093*3094,3095 

3097*3098 



3170 
3082 
3084 



30C1 
30C3 

30C5 

30C7 

0680, 30B7, 3088,3069 

30BB 

30BC3060 

30BF 

30C9 



30F0,30F1 
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A6C2 


096C 


0965, 097C, 0983, 30F2.30F3 




A6C4 


0984 


0970, 0993.099A, 30F4.30F5 




A6C6 


099B 


0994,09AB,09B2,30F6,30F7 




A6C8 


09B3 


09AC,09C3,09CA,09DB,30F8,30F9 




A6D0 


09DC 


09C4,09CB,09E7,3150 




A6D2 


09E8 


09F3.315E 




A6D3 


09 F4 


09FF,315F 




A605 


OAOO 


0A0B,3163 




A606 


OAOC 


0A17,3164 




A6F0 


0A18 


0A26.3165 




A6F1 


0A29 


0A27.0A37.3166 




A60A 


07C7 


0703*3009 




A60C 


07D4 


07E0.300A 




A60E 


07E1 


0760,3006 




A600 


078F 


0787,0797,3004 




A602 


0798 


07 AO, 3005 




A604 


07A1 


07AC.3006 




A606 


07A0 


0769, 3007 


' 


A608 


07BA 


07C6.3008 




A64A 


085C 


0869, 30E3 




A64C 


086A 


0677, 30E4 




A640 


0810 


080A.081C, 0826, 300E, 3167 




A642 


0827 


0833. 30DF 




A644 


0834 


0640, 30EO 




A646 


0841 


084D.30E1 




A 648 


084 E 


0858, 30E2 




A660 


087F 


087A, 0880,0896,3157,3158 




A 662 


0897 


08A4.08AE, 3159, 315* 




A664 


08AF 


08BC,08C6,315B,315C 




A670 


08C9 


08C7, 0802, 0809, 3169 




A6BC 


0918 


0922,092B,30EB,30EC 




A680 


080C 


08D3,08E7.06F0,30E5,30E6 




A684 


08F1 


08FB.0903.30E7.30E8 




A688 


0904 


090E,0917,30E9,30EA 




A7CC 


0C28 


0C31.0C3A, 3125, 3126 




A7C0 


06EC 


0BE0,0BF6,0C00,311F,3120 




A7C4 


0C01 


0C0A.0C14, 3121, 3122 




A7C8 


0C15 


0C1E.0C27, 3123, 3124 




A70C 


0A7D 


0A89.0A97.0A9E, 3100*3101, 3102 




A700 


0A38 


OA44,OA4E,30FA,30F6 




A704 


0A4F 


OA 5B , OA 65 , 30FC * 30FD 




A708 


0A66 


0A72, 0A7C , 30FE , 30FF 




A74C 


0B03 


0B0F,0B19,0B25.OB2C,31OB,31OC,3100,31OE 




A740 


0AA8 


0A98,0A9F,0AB8,0AC3,0ACF,0AD6, 3103, 3104, 3105, 3106 




A746 


0A07 


OAE5.0AEE.OAFB.OB02. 3107, 3108, 3109. 310A 




A78A 


0BB8 


0BC1,0BCB,3116,311C 




A78E 


OBCC 


0B05,0BDF,311D.311E 




A780 


0B79 


0B6C, 0685, 0B8F.0B9B.0BA2, 3115, 3116, 3117, 3116 




A7B6 


0BA3 


08AD.0BB7.3119.311A 




A80C 


0C9A 


0C93.0CA4.312F 




A80E 


0CA9 


0CB3.3130 




A800 


0C43 


0C3B,0C53,0C5E,0C69,0C70,3127,3126,3129,312A 




A806 


0C71 


0C6A,0C70,0C87,0C92,0C99,312B,312C.312D,312E 




A84A 


0DB2 


0068,3171 




A840 


0D56 


0020,0063,3135 




A 842 


0064 


0076, 3136, 316F 




A844 


0079 


0087,3137 




A846 


0D88 


0091*3138 




A848 


0D92 


0098*3139 




A 849 


009C 


0061,313**31*8 




AB5A 


ODBC 


0004,3172 




A88A 


0E4B 


0E58.3173 




A88C 


0E59 


0E64.0E60.0E77. 3141, 3142*3143 




A880 


ODCF 


00C5.0DDE. 0DE8, 00EE.00F5, 3136, 3130,3160 




A864 


00F6 


O0EF,0E06,0E14,OE10,313D,313E,31*l 




A888 


0E1E 


0E2C,0E3A,313F,314O 




A889 


0E3B 


0E4A.3162 




A900 


0282 


3065,3066.3067.3066*3069 


DATE 


02JAN66 01MAY66 15N0V66 15FEB68 26AUG68 


EC NO. 


415490 415490C 419643 420403 420403A 



PROG ID 
PAGE 



03A1-1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
CPU FUNCTION TEST 



PART NO. 2191204 
PAGE 45 



840A 


0490 


B400 


045 3 


B406 


0471 


8W0 


0519 


B500 


0641 


B&00 


07EE 


B602 


07FC 


B680 


092C 


B742 


0B20 


B747 


0B57 


B8A0 


0ED6 


88M 


0EF1 


B8A2 


OEFB 


B8A3 


0F05 


B8A4 


OFOF 


B8AS 


0F19 


B8C0 


0F24 


BBC1 


0F3E 


B6C2 


0F46 


B800 


0CB4 


B802 


OCBF 


B804 


OCCA 


B806 


0C05 


B807 


0004 


B808 


OOOF 


B809 


001 A 


B810 


0026 


B882 


0E78 


B884 


0E9A 


B885 


OEBA 


FOOA 


0F85 


FOOB 


0F83 


FOOC 


OFBE 


FOOE 


0F98 



FOOF 
FOOG 
FOOH 
POOR 
FOOL 
FOOX 
FOOO 



0F8B 
OFCD 
0FB4 

0F7A 
0F81 
0F69 



04A3,04AB, 0484, 3090,3091, 3092 

045E. 0467, 0470 ,308A, 308B.308C 

047D, 0486, 048F, 3080, 308E.308F 

0529, 0531, 053A,309Ct 3090, 309E 

063A.064F, 0656,3085,3086 

07FB.30DC 

0809,3000 

0937, 0943, 094A,30ED,30EE,30EF 

0B39,0B43,0B4F,0B56,310F,3110,3111t3112 

0B61.0B6B, 3113, 3114 

OEC6,0EE7,OEFO,314B,314C 

0EE9,0EFA,3140 

0F04.314E 

0F0E.314F 

0F18,3150 

0F23,3151 

0F2C0F34.0F30, 3152, 3153, 3154 

0F45.3155 

0F4E.3156 

0CBE.3131 

0CC9,3132 

0C04.3133 

0CDF.3134 

0CE0,000E,316A 

0019, 316B 

0025, 316C 

0D55.3160.316E 

OE 84, 0E8D.0E99, 3144, 3145, 3146 

0EA4,0EAD,0EB9, 3147, 3148, 3149 

0EC5.314A 

0F72 

0F8D.0F90 

OFBA 

0370, 0388, 03AF,03C8,03E6,03FE, 0410, 0425, 043F, 0447, 045C, 0465, 047B 

0484, 04A1,04A9,04C6,04CE,04E4,04ED,0503,050C ,0527, 052F,057A,0583 

059B,05B2,05E3, 0605, 060C, 0669, 0670, 070B,071E, 0731, 0745, 0750,0777 

081 A, 088A,08A2,08BA, 0807, 08E5,08F9,090C, 0920, 0935, 0A42,0A59,0A70 

0A87,0AB6,0AC1,0AE3,0AEC,0B00,0B17,0837,0B41,0B5F,0B83,0B8D,0BAB 

0BBF,0B03,0BF4,0C08,0C1C,0C2F,0C51,0C5C,0C7B,0C85,0D3D,0D46,0DDC 

OOE6,0E04,OE12,OE2A,OE62,0E6B,OE82,0E8B,OEA2,OEAB,OEE5,OF2A,0F32 

0FAE,0FBO,OFB5,0FBE,OFCB,OFCC 

0F70 

0FC9 

0F99 

&D*0FC2 
0F94 
0F6A 

02DC,02E7,02F2,02FD,030B,031C, 0326, 0330, 033B, 0348,0353, 035E, 0360 
0377, 0385, 038F ,0399, 03A2, 03 AC, 03B6,03C5,03CF,03E3,03E0,03FB,0404 
041 A, 0422, 0420, 04 3C, 0444, 0440, 0459, 0462, 046B, 0478, 0481 ,048A,049E 
04A6,04AF,04C3,04CB. 0404, 04E1,04EA,04F3, 0500, 0509, 0513, 0524, 052C 
0535, 0548, 0555, 0565, 0571, 0577, 0580, 058A, 0598, 05A1.05AF, 05 B8,05C9 
05D4, 05EC05EB.05F6, 0602, 0609, 0613, 0620, 0627, 0634, 063B,064A, 0651 
0666,066D,067B,06B7,068E,069C,06A3,06AO,06B5,06BF,06C7,06Dlt0609 
n/.t3 . n&xfk . ha.cc AiCt . n?nfi _ m i i . m i a m-tc: r\-r-> c r\-> it nii^'i .niia .n7(l 



OB3E,OB4A,0B51,0B5C,0B66,OB80,O68A,OB96,OB90,OBA8,0BB2,0BBC,0BC6 
OBDO,0BDA,0BFl,0BFB,OC05,0C0F,0C19,0C22,OC2C,OC35,0C4E,OC59,OC64 
0C6B,OC78,0C82,0C8D,OC94,0C9F,OCAE,OCB9,OCC4,0CCF,OCDA,00O9tOD14 
0020, 003A,0D43,0D5E,006A, 007 1,0082, ODBC, 0D96,0DA5,0DAC,ODB6,00BF 
0009,006 3, 0DFO,0EOl,OEOF,OEl 8, 0E27,0E35,OE45,0E5F,OE68,OE72,0E7F 
0E88,0E94,OE9F,OEA8,0EB4,OECO,0EE2,OEEB,OEF5,0EFF,OF09,OF13,OFlE 
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F002 0F82 0F75 

F003 0FD2 0D27,0F6E,0F93,0FA6, 

F004 0FD3 029A,02A9 

F005 0FC4 02DF,02EA,02F5,0300, 
0392, 039C.03A5, 0369, 
04F6,0516,0538,054B, 
061 6, 0623, 062 A, 0637, 
06B8,06C2,06CA,0604, 
0767,0781,0795,0796, 
0831, 083E, 0846,0859, 
0929,0941,0948,0962, 
09E5,09F1,09FO,OA09, 
OA04,0AF9,OB00,OB23, 
0BFE,0C12,0C25,0C38, 
0C0D,ODOC,OD17,OD23, 
00EC,00F3,0E1B,0E38, 
OF0C,0F16,OF21,0F3B, 

F007 0207 029C02AB 

F008 0FB5 0FAA.0FC3 

F009 0FB7 OFAO 

F902 02C8 02AC02BF 

F903 02C9 O297,02A6,O2BS 

F904 02CA 02CA 

F911 02CB 0282,0286 

F912 02CC 0283, 0285, 02CB 

F913 02C0 0284 

F915 02CE 02AE.02B1 

F916 02CF 028C 

F917 0200 02A0,02C0,02C8 

F918 0201 0289,0280 

F919 0202 0296 

F920 0203 02A5.02B6 

F922 0204 0290, 02B9 

F923 02D6 029E,029F,02A2,02BA 

G0C1 0144 0141 

G0C2 0147 0145 

G080 0130 012E 

G081 0133 0130 

G082 0138 0133 

G083 013A 013B 

G084 013B 0138 

G14A 0181 017F 

G14B 0185 0183 

G14C 0189 0187 

01 4 0180 018B 

G14E 0191 018F 

G14F 0195 0193 

G140 015A 0158 

G141 0150 0158 

G142 0161 015F 

G143 0165 0163 

G144 0169 0167 

G145 0160 0168 

G146 0171 016F 

6147 0175 0173 

6148 0179 0177 
G149 017D 017B 
G150 0199 0197 
G18A 0100 OICE 
G18B 0104 0102 
G18C 0108 0106 
G18D 010C 01DA 
G18E 01E0 010E 
G1BF C1E4 01E2 
6181 01AC 01** 
G182 01B0 01AE 
G183 01B4 01B2 
G184 0188 01B6 



0FC5 

030E,031F,0329 
03D2.03F0.0407 
0558,0568,0560 
063E, 0640, 0654 
060C06E6.06EE 
07AA,07B7,07C4 
0867,0875,0894 
0969, 097A, 0981 
0A15,0A24,0A35 
0B2A,0B4D,0B54 
0C67,0C6E,0C90 
0053,0061,0076 
0E48,0E56,OE75 
0F44,0F4D,0FCA 



,0333, 033E 
,0430,0450 
,05A4,05BB 
,067E,068A 
.06F9.0701 
,0701, 07DE 
.08AC08C4 
,0991,0996 
.0A4C.0A63 
,0B69,0B99 
,0C97,0CA2 
,0D85,008F 

0t97,0EB7 

OFCO 



,034B 
,046E 
,05CC 
,0691 
,0714 
,07E6 
,0800 
,09*9 
,0A7A 
,OBAO 
,0CB1 
• 0099 
,0EC3 



,0356 
,0480 
,0507 
,069F 
,0728 
,07F9 
,08EE 
,09B0 
,0A95 
• 0BB5 
,0CBC 
,0DAF 
,OEEE 



,0361,037A 
,04B2,04D7 
,05EE,05F9 
,06A6,06BO 
,073A,074E 
,0807,0824 
,0901,0915 
,09C1,09C8 
,0A9C,0AC0 
.0BC9.0B00 
,OCC7,OC02 
,0DB9,0DC2 
,OEF8,OF02 



DATE 
EC NO. 



02JAN66 
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420403 
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6185 


01BC 


01BA 






G186 


oico 

"01C4 


01BE 






G187 


01C2 






GI88 


01CS 


01C6 






G189 


01CC 


01CA 






62CC 


033E 


0339 






G2C0 


031F 


031A 






62C4 


0329 


0324 






G2C8 


0333 


032 E 






G20A 


0250 


0259 






G20B 


0267 


0265 






G20C 


026B 


026F 






G20D 


0262 


0260 






G200 


0231 


0220 






G201 


0236 


0232 






G202 


023 A 


0236 






G203 


023E 


023A 






6204 


0242 


0240 






6205 


0247 


0243 






G206 


024F 


0240 






G207 


0254 


0252 






G20C 


024B 


0247 






G209 


0258 


0256 






G280 


02PF 


020A 






G281 


02EA 


02E5 






G282 


02F5 


02F0 






G283 


0300 


02FB 






G284 


030E 


0309 






G3C0 


03E6 


03E1 






G3C2 


03F0 


03EB 






G3C4 


03FE 


03F9 






G3C6 


0407 


0402 






6300 
G302 


034B 


0345 






0356 


0351 






G304 
G340 


0361 


035C 






0370 


0368 






G342 


037A 


0375 






G38A 


03B9 


03B4 






638C 


03C8 


03C3 






G38E 


0302 


03C0 






G380 


0388 


0383 






G382 


0392 


0380 






G384 


039C 


0»97 






G386 


03A5 


03A0 






G388 


03AF 


03AA 






G4CA 


05A4 


059F 






G4CC 


05B2 


05AD 






G4C0 


05BB 


05B6 






G4C0 


0568 


0563 






C4C2 


0S7A 


0576 






G4C4 


0583 


057F 






G4C6 


0580 


0588 






G4C8 


059B 


0596 






G40C 


043 F 


043B 






G40E 


0450 


044B 






G400 


0425 


0420 






G404 


0410 


0418 






G406 


0430 


0428 






G407 


04 3C 


0439 






G408 


0447 


0442 






C44A 


050C 


0507 






G44C 


0500 


04F0 






G44D 


0503 


04FF 






G44E 


0516 


0511 






G440 


04CE 


04C9 






G442 


04C6 


04C1 






6443 


0407 


0402 






G444 


04E0 


04E8 




DATE 


02JAN66 01MAY66 15N0V66 
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EC NO. 
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420403 420403A 
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G446 


04E1 


040E 






G447 


04E4 


04E0 






G448 


04F6 


04F1 






G480 


054B 


0546 






G482 


0558 


0553 






G5CA 


0781 


077C 






G5C0 


0745 


0740 






G5C2 


074 E 


0749 






G5C4 


075D 


0758 






G5C6 


0767 


0762 






G5C8 


0777 


0772 






G50A 


060F 


05FEt0608 






G50C 


061F 


061B 






G50E 


0634 


0630 






G500 


05CC 


05CB 






G502 


0507 


0503 






G504 


05E0 


050E 






G505 


05E3 


05DF 






G506 


05EB 


05E9 






G507 


05EE 


05EA 






G508 


05F6 


05F4 






G54A 


06C6 


06BC 






G54C 


0608 


06CE 






G54E 


06EA 


06E0 






G54F 


06FO 


06F2 






G540 


0674 


0662,0673 






G542 


067E 


0679 






G544 


0695 


0683 






G546 


069B 


0697 






G548 


06B4 


06AA 






G58A 


073A 


0735 






G580 


0708 


0706 






G582 


0714 


070F 






GS84 


071E 


0719 






G586 


0728 


0723 






G588 


0731 


072C 






G6C0 


0969 


0950 






G6C2 


0981 


0975 






G6C4 


0998 


098C 






G6C6 


09B0 


09 A4 






G6C8 


09C8 


09BC 






G60A 


0701 


07CC 






G60C 


070E 


0709 






G60E 


07EB 


07E6 






G600 


0792 


078F 






G602 


079 B 


079B 






G604 


07AA 


07A5 






G606 


07B7 


0782 






G608 


07C4 


07BF 






G64A 


0067 


0862 






G64C 


0875 


0870 






G640 


0810 


0815 






G641 


0824 


081 F 






6642 


0831 


08 2C 






G644 


083E 


0839 






G646 


084B 


0846 






G648 


0859 


0854 






G660 


088A 


0885 






G661 


0894 


088F 






6662 


08 A 2 


0890 






6663 


08 AC 


08A7 






6664 


08BA 


08B5 






6665 


08C4 


08BF 






6670 


0804 


08CB 






G671 


08CB 


08CF 






G672 


08CD 


080A 






668A 


0915 


0910 






668C 


0920 


09 IB 




OATE 
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668E 


0929 


092* 






G680 


08E2 


08DF 






G682 


08EE 


0BE9 






G68* 


08F9 


08 F* 






G686 


0901 


MFC 






G688 


090C 


0907 






G7CA 


0C25 


0C20 






G7CC 


0C2F 


0C2A 






G7CE 


0C38 


0C33 






G7C0 


OBF* 


OBEF 






G7C2 


OBFE 


0BF9 






G7C* 


0C08 


OC03 






G7C6 


0C12 


OCOD 






G7C8 


0C1C 


0C17 






G70A 


0A7A 


0A75 






G70C 


0A87 


0A82 






G70E 


0A9C 


0A8C 






G700 


0A*2 


0A30 


, 




G702 


0A*C 


0A*7 






G70* 


0A59 


0A5* 






G706 


0A63 


0A5E 






G708 


0A70 


0A6B 






67*A 


OBOO 


0AF2.0AFC 






67*C 


OBOD 


0B08 






67*E 


OB 17 


0B12 






G7*0 


0AB6 


0AB1 






G7*2 


0AC1 


OABC 






67** 


OAD* 


0AC6.0A00 






67*6 


0AE3 


OADE 






67*8 


OAEC 


0AE7 






67 8 A 


OBBF 


OBBA 






G78C 


0BC9 


OBC* 






G78E 


0BD3 


OBCE 






G780 


0B83 


0B7E 






G7B2 


0B8D 


0B8B 






678* 


OBAO 


0B92.0B9C 






G786 


OBAB 


0BA6 






6788 


OBBS 


OBBO 






G80A 


0C97 


0CB9 






680C 


0CA2 


0C9D 






G80E 


0CB1 


OCAC 






G800 


0C51 


0C*C 






G802 


0C5C 


0C57 






G80* 


0C6E 


OC60 






G806 


0C7B 


0C76 






G808 


OC85 


OCBO 






68*A 


0DB6 


ODB* 






68*0 


0D61 


0D5C 






68*2 


0D7* 


0D6F 






G8** 


0D85 


ODBO 






68*6 


008C 


0D8A 






G8*8 


0096 


009* 






68*9 


ODAF 


ODAA 






688A 


0E38 


0E33 






G88B 


0E56 


0E53 






G88C 


0E62 


0E5D 






G88E 


0E66 


0E66 






6880 


ODDC 


0DD7 






G881 ' 


0DE9 


0DD6 






6882 


ODE 6 


00E1 






G883 


ODFO 


OOEB 






G8B* 


OEO* 


ODFF 






G885 


0E15 


ODFC 






G886 


0E12 


OEOD 






G887 


0E1B 


0E17 






G888 


0E2A 


0E25 






G889 


06*8 


0E*3 






6900 


02AC 


02A0.02B3 




DATE 
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EC NO. 


*15*90 *15*90C *196*3 *20*03 *2O*03A 
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6901 


02A5 


0295 




6902 


0290 


02 A* 




G903 


02 B9 


02BE 




G90* 


02BF 


02B7.02BBt02C* 




H*C2 


0577 


057* 




H*C3 


057* 


056F 




H*C* 


0580 


057D 




H*0A 


0*A9 


0*A* 




H*00 


0*A1 


0*9C 




H*OE 


0*82 


0*AD 




H*00 


0*65 


0*60 




H*02 


0*5C 


0*57 




H*0* 


0*6E 


0*69 




H*05 


0*78 


0*77 




H*06 


0*8* 


0*7F 




H*07 


0*78 


0*75 




H*08 


0*80 


0*88 




H**0 


052 F 


052A 




H**3 


0527 


0522, 




H*** 


0538 


0533 




H50A 


0602 


0600 




H50B 


0613 


0611 




H50C 


0620 


061D 




H50E 


063 E 


0632 » 




H508 


05F9 


05F5 




H5*A 


06CA 


06BE 




H5*C 


06DC 


0600 




H5*E 


06EE 


06E2 




H5*F 


0701 


06F* 




H5*0 


0666 


066* 




H5** 


0687 


0685 




H5*6 


06A3 


069A 




H5*8 


0688 


06AC 




H6C0 


0966 


0958 




H6C2 


09 7E 


0970 




H6C* 


0995 


0988 




H6C6 


09A0 


099F 




H6C8 


09C5 


09 B7 




H600 


09E5 


09E0 




H6D2 


09F1 


09EC 




H603 


09 FO 


09F8 




H605 


0A09 


OAO* 




H606 


0A15 


0A10 




H6F0 


0A2* 


0A1F 




H6F1 


0A32 


0A2C »0A2D.0A2F.0*30 




H6F2 


0A35 


0A31 




H600 


0795 


0791 




H602 


079 E 


079A 




H6*0 


0812 


0812.081* 




H680 


08E5 


08E1 




H7*A 


OAFD 


OAF* 




H7** 


0AD1 


OACS 




H780 


OBDD 


0808 




H78* 


0B9D 


0B9* 




H80A 


0C9* 


0C8B 




HBOC 


0C9F 


0CA7 




H80* 


0C6B 


0C62 




H8*A 


0DB9 


0DB5 




H8*2 


0D60 


0D68 




H8*6 


008 F 


0D8B 




H8*8 


0D99 


0095 




H8*9 


0D9E 


0D9E.0DA2 




H85A 


0DC2 


ODBE 




J50A 


0609 


0601 




J50C 


0627 


061E 




J50E 


063 B 


0633 




J5*0 


0660 


0665 




J 5** 


068 E 


0686 
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J546 


06A6 


0699 






J 600 


07F9 


07F4 






J602 


0807 


0802 






J 680 


0935 


0930 






J682 


094* 


093A 






J70E 


0A99 


0A90 






J74A 


0B69 


0B64 






J 740 


082 A 


0B1C0B26 






J742 


0B37 


0B32 






J 744 


0B41 


0B3C 






J746 


0B54 


0B46,0B50 






J74B 


0B5F 


0B5A 






J8AA 


OF IE 


OFlBtOFIC 






J8A0 


0EE5 


OEEO 






J8A1 


0EF8 


0EF4 






J8A2 


0EF5 


0EF3 






J8A3 


0F02 


OEFE 






J8A4 


OEFF 


OEFD 






J8A5 


OFOC 


0F08 






J8A6 


0F09 


OF 07 






J8A7 


0F16 


0F12 






J8A8 


0F13 


0F11 






J8A9 


0F21 


0F1D 






J8C0 


0F2A 


0F26 






J8C1 


OF 32 


0F2E 






J8C2 


0F3B 


0F37 






J8C3 


0F42 


0F40 






J8C4 


0F44 


0F41 






J8C5 


0F4B 


0F48.0F49 






J8C6 


0F40 


0F4A 






J 800 


OCBC 


0CB7 






J802 


0CC7 


0CC2 






J804 


0CD2 


OCCO 






J 806 


OCDD 


0CD8 






J808 


ODOC 


0D07 






J 809 


0D17 


0012 






J810 


0023 


0D1F 






J811 


0030 


003F.0048.0D4F 






J812 


0D3D 


0D3S 






J813 


0D46 


0041 






J814 


0D27 


0052 






J815 


0D20 


0010 






J816 


0049 


0D4C 






J 88 A 


OECO 


OEBE 






J88B 


0EC3 


OEBF 






J 880 


0E75 


0E70 






jse2 


0E82 


0E7D 






J 884 


0E8B 


0E86 






J886 


0E97 


0E92 






J 887 


0EA2 


0E9E 






J888 


OEAB 


0EA6 






J 889 


0EB7 


0EB2 






K50B 


0616 


0612 






K50C 


062 A 


061F 






K640 


0814 


087C 






K682 


0945 


093C 






K740 


0827 


0B1E 






K746 


0B51 


0848 






K849 


0DA8 


0DA3 






N1C0 


01F3 


01EB 






N1C1 


01F4 


01EE 






N1D0 


0211 


01FBt01FC t 01FF,0207 






MIDI 


0212 


01F5t01F8t0208 






N102 


0213 


0204,0200 






N1E0 


02 IE 


0218.021A.021E 






N1E1 


021F 


0214 






N1F0 


022A 


022C 






K1F1 


0226 


0224,0226,0220 




DATE 


02JAN66 01MAV66 15N0V66 15FEB68 


26AUG68 


EC NO. 


415490 415490C 419643 420403 


420403A 



N1F2 022C 0220 

N100 0143 014C014F 

N140 019F 0154 

N180 01EA 01*0.01*4 

N2C0 0342 0318,0319,0322,0320 

N2C2 0343 0323, 032C, 0336, 0337, 0338 

N200 026C 0231,0250 

N201 0260 0258 

N202 026E 0262 

N203 026F 0267 

N240 0271 0271,0275 

N241 0273 0270,0274 

N242 027C 027F 

N243 0270 0278, 027E 

N280 0312 0208 

N281 0313 02E2,0303 

N282 0314 02E4.0308 

N283 0315 02ED 

N284 0316 02EF.02F8 

N285 0317 02FA 

N3C0 040B 030E 

N3C1 040C 030C 

N3C2 0400 03F5 

N3C3 040E 03F3 

N3C4 040F 03E0 

N3C5 0410 03EA 

N3C6 0411 03F8 

N300 0365 0344,0345,034E 

N302 0366 034F,0350,0359,035A,035B 

N340 037E 0367 

N341 037F 0369,0374 

N380 0306 0380 

N381 0307 0382, 038C 

N382 03D8 0395 

N383 03D9 03A8,03BC 

N384 030A 03B3 

N385 030B 03CC 

N4C0 05BF 0561, 0562,0560, 0586,0592, 0594,05A9,05AB 

N4C1 05C0 0587 

N4C2 05C1 0593,059E,05AA,05B5 

N4C3 05C2 0595 

N4C4 05C3 05AC 

N400 04B6 0412,0415,0429 

N401 04B7 0492 

N402 04B8 0473 

N403 0489 0455, 047E 

N404 04BA 045F 

N405 04BB 0433,0453,0471,0490 

N406 04BC 0436 

N440 053C 04BD.0519 

N441 0530 04BF,040C,04FB,051B 

N442 053 E 04DA,04E7 

N443 053F 04F9 

N444 0540 0506 

N445 0541 0510 

N4B0 055C 0542,0550 

N4B1 0550 0544.054E.0552 

N4B2 055E 0543, 0545, 054F, 0551 

N5C1 0788 070- .072B, 0730. 0751, 076E, 0770 

N5C3 078A 0717, 0754,0757, 0761, 076A.077B, 0784 

N5C4 078B 0718,0722 

N5C5 078C 073E,073F, 0752, 0755, 0756, 0768 

N5C6 0780 0748, 0753, 0760, 076C076F, 0771*0785 

N5C7 078E 0760, 077A, 0786 

N500 0658 05C5,05FD,060F,062F,0661*06A9 

N501 0659 0500,0696 

N502 065A 05DB 

N503 065B 05F2,0642 



♦ 
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N504 065C 061A 

NS05 0650 0645,0646,0675.0676 

N506 065E 0647 

N507 05E6 050C 

N542 065F 0677,0681, 06BB,06C0 

N6CA 0906 095C 

N6CB 0907 0974,OA03,OA00 

N6CD 0908 09A3,OA01,OAOF 

N6CF 09DA 0984,0988 

N6C0 09CC 0957,09CC,09DF 

N6C1 09C0 09C0,09DC,09E8,09F4,09F7 

N6C2 09CE 09CE.09EB 

N6C3 09CF 09CF __ _ 

N6C4 0900 0955, 0960, 0985, 0987.099C, 0986,0900, 0909 

N6C5 09D1 099E,09D1 

N6C6 09D2 0902 

N6C7 0903 0903 

N6C8 0904 09 6F, 0904 

N6C9 0905 095A, 0958, 0972, 0973, 098A,098B,09Al,09A2,09B9t09BA 

N6F0 0A10 0A1A 

N6F1 0A28 0A19,0A1E,0A28 

N6F2 0A20 0A2A 

N6F3 0A31 0A2E 

N600 080B 07CB, 0708, 07E5, 0801, 0808 

N601 080C 07A2.07A4.07AF, 0781, 07BC07BE.07C9, 0706, 07E3,07F1,07FF,0B0C 

N602 080D 07F3,0800 

N603 080E 07AE,07BB,07C8,0705,07E2,07FO,07FC 

N640 087B 0811, 0813, 0810, 0828, 082A,082B,0835,0837,0838,0842,0844,O845,O84F 

0851, 0852, 0850, 085P, 0860,0868, 0860, 086E,0879 

N642 087C 081 E 

N643 087D 084E,085C,086A,0878 

N644 0S7E 0810, 0827, 0834, 0841, 0853, 0861, 086F 

N660 08C8 0883, 0884, 088D,088E,089B,089C,08A5,08A6,08B3t08B4,08BO,08BE 

N670 08DB 08CA 

N680 094C 0800, 08E8,08F2, 0905. 0906 

N681 0940 08DF 

N682 094E 08F3 

N683 094F 0919.091A 

N684 0950 0923, 0920, 092E 

N686 0951 0939 

N687 0952 090F 

N688 0953 092F,0938 

N7C0 0C3C OBEC 

N7C1 0C30 OBED 

N7C2 0C3E OBEE 

N7C3 0C3F 0BF8 

N7C4 OC40 OC01.0C02.0C16.0C28 

N7C5 0C41 OCOC 

N7C6 0C42 0C15,0C29,0C5F 

N700 OAAO 0A39,0A5O,OA7E 

N701 0AA1 0A3A.0A53.0A6B.OA74,OA8F 

N702 0AA2 0A3B,0A45,0A52,0A5C,0A69,0A73,0A80,0A8A,OA8E 

N703 0AA3 0A3C0A51 

N704 0AA4 0A46,0A5D,0AF1 

N705 0AA5 0A67,OA7F,OA81 

N706 0AA6 0A8B 

N707 0AA7 0A6A 

N74A 0874 0B11 

N74B 0B75 OB 38 

N74C 0876 0B2E 

N740 0860 OAAO, OAC4,OAOC,OAEF,OB06.0B1A.OB30, 0844 

N742 0B6E 0AA9,OAAF,OABA,0A0A.0B04,0B05,0B07,OB2F,0B31 

K744 0B70 OAAB 

N746 0B72 0A08.0B57 

N747 OB73 0B58.0B59 

N748 0678 0B1B,0B4S»0B63 

N78A QBE A 0BB8 
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N78D 0BE9 0BC3 

N780 0BE1 0B7COB9O 

N782 0BE2 0B7A.0BA4.0BCC 

N784 0BE4 0B7B 

N785 0BE5 OBAF.0807 

N786 0BE6 0870, 0887, 0BA5.0BB9 

N787 0BE7 OBCO 

N788 OBEB 0B91 

N8A0 0F55 0EDF,0EF1,0EFB,0F05,0F10 

N8A1 0F50 0EF2,0F19,0F1A 

N8A2 0F51 0E0E,0EE8,0F06 

N8A3 0F52 OEFC 

N8C1 0F66 0F5C 

N8C2 0F67 0298, 02 A7 

NBC3 0F68 0F50.0F66 

N8C5 0F54 OFOF,OF25 

N8C6 0F56 0F24,OF20,OF36 

N8C7 0F58 0F3E,0F46,0F47 

N8C8 0F5A 0F3F 

N80A OCEA 0CB5 

N80C OCEC OCCO 

NBOE OCEE 0C9C.0CCB 

N80F OCEF 0011 

N800 0CE1 0C48.0C74.0C88 

N802 0CE2 0C44 

N804 0CE4 0C71 

N806 0CE6 0C9B 

N807 0CE7 OCA6,0CAB,OCCC,0C07,0D4A 

N808 0CE8 0CAA.0CB6 

N810 OCFO 0C06 

N811 0CF1 0C55 

N812 0CF2 0C46,0C4A,0CC1 

N813 0CF3 0C72.0C75 

N816 0CF4 0C7F 

N817 0CF5 0006 

N818 0CF6 0005 

N819 0CF8 0D10,002E,OO4E 

N820 OCFA 00 1C 

N821 OCFB 002F, 0030, 0031. 0035, 0026,0049. 0048 

N823 0000 0D1B 

N824 0002 0033 

N84A 00C6 00B2 

NB40 00C7 0059, 005A, 0070, 007E,0DA1,00A8 

N841 0DC8 005B.OD7F.OOA9 

NB42 00C9 0065,0060,0075 

N843 ODCB 0074 

N844 OOCC OOBCOOCD 

N845 OOCD 0064, 0067, 009F 

N846 OOCE 006E 

N88A OEOO 0E7A,0E9A,0EM 

N88B 0E01 0E41 

N88C 0E02 0E59 

N880 0ED3 0E7B 

N88E 0E04 0E0B.0E90 

N880 0EC7 0004,OD0F,0EO7,OE09,0E20,OE2F,0E6E,0E6F,OE8E.0E8F,OEAE,OEBO 

N882 0EC8 0D0O.OE4E 

N884 OECA O0F8.OE3E.OEB1 

N885 OECB 0E1E.0E31 

N886 OECC 0DF0.0E20.0E23.0E7C.0EA5 

N887 OECO O0F6 

N88B OECE 0E5B 

RST1 0F08 0F90 

RST2 0F09 0FA0.0FA3 

S501 0651 0644 

S503 0654 0648 

UOOA 0F96 OFBF 

UOOB 0F97 OF77,0F86,0FAB,0FBC,0FCO 
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uoox 


0FD6 


0F9A,0F9C,0FBlt0FB3 


uooo 


OFCF 


0F*Bt0F80 


0001 


OF DO 


0F*D»0F7E 


U003 


0F95 


0FB7 


U006 


0FD4 


0F78 t OFAF 


V1AC 


027A 


027C 


¥154 


0241 


023E 


¥168 


024 E 


0248 


¥170 


0253 


0250 


¥174 


0257 


0254 


V180 


0261 


025E 


¥104 


02** 


02*3 


H8C0 


0F5C 


OEDCtOMf 


M8C4 


OF* 5 


OF 60 


XOOO 


0120 


OFDCtSMO 


X001 


0284 


02 AF, 3001 


X003 


02C5 


020*3002 


X007 


0F62 


3003 


2000 


0FD5 


0D29,0F*F,0F7A»0F91,OFA7,0FB7t0FC*«0F02 


2020 


0F65 


0F61 


END OF 
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BASIC Ot AGNOSTIC LOADER 



1. PURPOSE 

THE 1130 BASIC DIAGNOSTIC LOADER IS A SELF-CHECKING PROGRAM OESIGNED 
TO LOAD AND VERIFY LOADING OF DIAGNOSTIC-CARD OR PAPER TAPE 
PROGRAMS PUNCHED IN B-B FORMAT. 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE BASIC LOADER MILL ONLY LOAD PROGRAM DECKS WHICH ARE PUNCHED 
IN THE 8-B FORMAT DESCRIBED IN SECTION 6.1. 

2.2 EQUIPMENT PREREQUISITES 

A. 1131 CENTRAL PROCESSING UNIT ICPU). 

B. 1*4? CARD READ/PUNCH, OR. PAPER TAPE READER. 

3. USE PROCEDURE 

3.1 NORMAL LOAOING PROCEDURE 

A. AT 1442 CARD READ/PUNCH, 

1. DEPRESS NPRO PUSHBUTTON TO CLEAR FEED. 

?. PLACE BASIC LOADER DECK, FOLLOWED BY MAIN PROGRAM AND TWO 

BLANK CARDS IN HOPPER. 
3. OEPRESS START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 

B. AT PAPER TAPE READER 

1. SET TAPE IN READER 

2. MAKE READER READY 

C. AT 1131 CPU, 

1. PUSH RESET. 

2. PUSH PROGRAM LOAD. MAIN PROGRAM SHOULD LOAD AND BEGIN 
EXECUTION. 

3. IF PROGRAM FAILS TO LOAO OR HALTS AT A WAIT INSTRUCTION BELOW 
LOCATION 012C, REFER TO SECTION 3.2 

3.2 DIAGNOSTIC LOAOING PROCEDURE 

1. SET INTERRUPT OELAY SWITCH ION CE PANEL) TO ON POSITION. 

2. RETRY LOAOING PROCEDURE. 

IF PROGRAM LOADS, RUN CPU AND INTERRUPT TESTS TO DIAGNOSE NORMAL 
LOADER FAILURE. 

IF PROGRAM DOES NOT LOAD, REFER TO SECTION 3.3 

3.3 DIAGNOSTIC GUIDE 

NOTE 

ALL REGISTER-CONTENT INDICATIONS IN FOLLOWING STEPS ARE EXPRESSED IN 
HFXAOECIMAL NOTATION. ALL ADORSESSES APPLY TO BOTH PAPER TAPE 
AND CARD VERSIONS OF THE PROGRAM. 

FAILURE DESCRIPTION SUGGESTED ACTION ♦ POSSIBLE CAUSE OF FAILURE 

1. NO CARO FEEDS REFER TO PROGRAM LOAD TFSTS. POSSIBLE FAILURE OF 

EITHfR PROGRAM-LOAD NODE OR READER. 
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2. FIRST CARD 
FEEDS 6UT IS NOT 
READ CORRECTLY. 

3. FIRST CARD IS 
READ CORRECTLY 
BUT NOT ABLE TO 
LOAD REMAINDER 
OF LOADER. 



REFER TO PROGRAM LOAD TESTS. 
POSSIBLE FAILURE OF READER. 



REFER TO ONE-CARD PROGRAMS. 
POSSIBLE FAILURE OF CPU INSTRUCTIONS 
USED TO BOOTSTRAP LOADER. 



4. MAIN PROGRAM CHECK THAT LAST CARD OF PROGRAM, HHICH IS 

STARTS EXECUTING PUNCHED WITH FF IN COLUMNS 79 AND 80, 

BEFORE ALL CARDS IS NOT OUT OF SEOUENCE. IF CARD IS IN SEQUENCE, 

HAVE BEEN LOADED. A READING PROBLEM IS INDICATED. 



5. ALL CARDS FEED 
BUT MAIN PROGRAM 
DID NOT EXECUTE. 



3.4 ERROR WAITS 

SBR LOCATION 
| 30F1 O01E 



| 30F? 
| 30F3 



I 



30F4 



30F5 



| 30F6 



| 30F1 



SEE IF LAST CARD KENT PAST THE READ STATION 
OF THE 1442. IF IT OID, RUN ONE-CARD 
DIAGNOSTIC PROGRAMS. CHECK THAT MAIN PROGRAM 
IS FOLLOWED BY TWO BLANK CARDS. 



MEANING 



PROGRAM STOPPED BECAUSE CHECKSUM FOR FIRST CARD MAS 
NOT CORRECT (0000). CHECK THAT LOCATIONS 0000 TO 
OOIE WERE READ CORRECTLY BY COMPARING WITH LISTING. 
IF NOT LOADED CORRECTLY, REFER TO PROGRAM LOAD 
TFSTS. IF LOCATIONS WERE LOADED CORRECTLY, RUN 
ONE-CARD PROGRAMS TO HELP ISOLATE PROBLEM. 

002F PROGRAM STOPPED BECAUSE OF DSW ERROR. THE ONLY 

VALID WORDS ARE 8003, 0003, AND 0800. DETERMINE 
CAUSF OF OSW ERROR ANO CORRECT. RELOAD AFTER 
REPAIRING. 

004F PROGRAM STOPPED BECAUSE FIRST WORO OF CARD 2 FAILED 

TO BE LOADED IN LOCATION 004F ANO THEREFORE, DID 
NOT REPLACF THE WAIT INSTRUCTION AT THAT LOCATION. 
EXAMINE CARD 2 AND TRY RELOAOING. IF NO 
IMPROVEMENT, RUN ONE-CARD DIAGNOSTIC PROGRAMS. 

0095 PROGRAM STOPPED BECAUSE OF DSW ERROR. THE ONLY 

VALID WORDS ARE 8003, 0003, AND 0800. DETERMINE 
CAUSE OF OSW ERROR AND CORRECT. RELOAD AFTER 
REPAIR. 

00A5 WHILE LOADING THE MAIN PROGRAM, PROGRAM FOUND THAT 

WORD COUNT IN LOCATION 0034 EQUALED ZERO. PROBLEM 
MAY BE CAUSED BY A BLANK CARD IN DECK, OR READING 
FAILURE. 

0OB7 CHECKSUM ERROR. EITHER THE SUM OF LOCATIONS 0010 

THRU 0036 DOES NOT EQUAL ZERO, OR AN ADO FAILURE 
HAS OCCURRED. COMPARE OATA IN LOCATIONS 0010 THRU 
0036 WITH DATA IN CARD COLUMNS 1 THROUGH 78. IF 
CORRECT, RUN CARDS 2 THRU 5 OF ONE-CARD DIAGNOSTIC 
PROGRAMS TO HELP DETERMINE CAUSE OF FAILURE. 

OODE PROGRAM HAS FOUND THAT A WORD IN THE READ-IN AREA 

AND THE WORD AT LOCATION WHERE THE WORD READ IN WAS 
TRANSFERRED DO NOT AGREE. THE ADDRESSES OF THE 
WORDS FOUND NOT TO AGREE CAN BE FOUND AT LOCATIONS 
OODA AND OODC. THE PROBLEM MAY BE A DATA-TRANSFER 
ERROR OR AN EOR FAILURE. RUN ONE-CARD DIAGNOSTIC 
PROGRAMS TO DETERMINE CAUSE OF PROBLEM. 
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4. PRINTOUTS INONEJ 

5. COMMENTS 

THF 1130 BASIC DIAGNOSTIC LOADER IS A SELF-CHECKING PROGRAM 
DESIGNED TO LOAD AND VERIFY LOADING OF CARD PROGRAMS PUNCHED IN 8-8 MODE. 
THF 8-8 MODE REFERS TO PROGRAM CARDS IN WHICH A CARO COLUMN CONTAINS A 
HALF WORO WHERE ONE FULL WORD CONSISTS OF SIXTEEN BITS. TWO CARD COLUMNS 
ARE REQUIRED FOP FACH WORD. THE LOADER DECK CONSISTS OF FIVE CARDS. THE 
FIRST CARD IS PUNCHED IN IPL-MODE FORMAT. CARDS TWO THROUGH FIVE ARE 
PUNCHED IN 8-8 MODE. 

5.1 BASIC-LOADER FIRST-CARD FUNCTIONS 

5.1.1 AFTER BEING LOADEO IN IPL MODE, THE FIRST-CARD PROGRAM DEVELOPS A 
CHECKSUM TO DETERMINE IF IT WAS LOAOFD CORRECTLY. IF THE CHECKSUM IS 
NOT 0000, THE PROGRAM STOPS AT A WAIT WITH THE DEVELOPED CHECKSUM 
DISPLAYED BY THE ACCUMULATOR. 

5.1.2 IF THE CHECKSUM IS CORRECT, THE FIRST-CARD PROGRAM PROCEEDS TO LOAD 
CAROS TWO THROUGH FIVE. TWO CARO COLUMNS WILL FORM ONE STORAGE WORD 
BECAUSE THESE CARDS ARE PUNCHED IN 8-8 MODE. THE DSW IS CHECKED, AND 
IF AN ERROR IS DETFCTED, THE PROGRAM WILL STOP AT A WAIT WITH THE 
ERROR OSW DISPLAYED BY THE ACCUMULATOR. THE CONDITION CAUSING THE 
DSW ERROR MUST BE CORRECTFO BEFORE ATTEMPTING TO RELOAD. 

5.1.3 AFTER LOADING CAROS TWO THROUGH FIVE, THE PROGRAM BRANCHES TO 
BEGINNING OF PROGRAM JUST LOADED. 

5.2 FUNCTIONS OF BASIC-LOADER CARDS TWO THROUGH FIVE 

5.2.1 CARDS TWO THROUGH FIVE LOAD A MAIN-PROGRAM CARD INTO LOCATIONS 0010 
TO 0036. THE DSW IS CHECKED AFTER READING A CARO COLUMN, AND IF AN 
ERROR OCCURRED, THE PROGRAM STOPS AT A WAIT WITH THE DSW ERROR 
DISPLAYED BY THE ACCUMULATOR. 

5.2.2 CAROS TWO THROUGH FIVE ALSO DEVELOP CHECKSUM OF LOCATIONS 0010 
THROUGH 0036. IF CHECKSUM IS OTHER THAN 0000, PROGRAM STOPS AT ERROR 
WAIT WITH CHECKSUM OISPLAYEO BY ACCUMULATOR. A CORRECT CHECKSUM 
MEANS CARO WAS READ CORRECTLY. 

5.2.3 THF WORO COUNT, (NUMBE* OF WORDS ON THE CARDI IS TAKEN FROM 
LOCATION 0034. IF IT IS ZFRO PROGRAM STOPS AT ERROR-WAIT. 

5.2.4 THE NUMBER OF WORDS SPECIFIED IN LOCATION 0034 IS RFLOCATEO, 
STARTING AT THE ADDRESS THAT WAS SPECIFIED IN CARO COLUMNS 75 AND 76 
ANO THAT WAS READ INTO LOCATION 0035. 

5.2.5 THP DATA READ AND THE QATA AT THE TRANSFERED LOCATION ARE COMPARED 
WORD BY WORD TO VERIFY THAT THE RELOCATION HAS BEEN DONE CORRECTLY. 
AN UNEQUAL COMPAP ISON RESULTS IN THE PROGRAM STOPPING AT AN ENOV-WAIT 
INDICATING AN RELOCATION ERRflR. 

5.2.6 THE PROGRAM REPEATS THE STEPS DISCUSSED IN PARAGRAPHS 5.2.1 YhROUGH 
5.2.5 FOR FACH CARD OF THE MAIN PROGRAM DECK, EXCEPT FOR THE LAST 
CARO, WHICH MUST HAVE A LOCATION ADDRESS OF 0000. AFTER READING THE 
CARO AND DEVELOPING THE CHECKSUM, THE PROGRAM BRANCHES TO LOCATION 
0010 ANO STARTS EXECUTING THE MAIN LINE PROGRAM. 
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6. APPENDIX 

6.1 PUNCHED CARO 9-8 FORMAT 

THE ORGANIZATION OF THE PUNCHED CARD 8-8 FORMAT IS AS FOLLOWS. 

A. COLUMNS I THROUGH 72 CONTAIN HALF WORDS 18 BITSI PUNCHED 
INTO ROWS 12 THROUGH 5. WORD-BITS THROUGH 7 ARE PUNCHED 
INTO EVEN NUMBERED COLUMNS. WORD-BITS 8 THROUGH 15 ARE 
PUNCHED INTO ODD NUMBERED COLUMNS. 

B. COLUMNS 73 ANO 7* CONTAIN A WORD-COUNT OF THE TOTAL NUMBER OF 
DATA WORDS PUNCHED INTO THE CARO. 

C. COLUMNS 75 ANO 76 CONTAIN THE LOCATION, IN CORE WHERE THE 
DATA ON THE CARD ARE TO BF LOADED. 

0. COLUMNS 77 ANO 78 CONTAIN A CHECKSUN ITWO'S COMPLEMENT OF THE 
SUM OF ALL WORDS IN COLUMNS 1 THROUGH 761. 

r. COLUMNS 79 ANO 80 CONTAIN THE CARD'S SEQUENCE NUMBER PUNCHED 
IN HOLLERITH/HEXADECINAL FORMAT. 
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BASIC DIAGNOSTIC LOADER 
LIST FOR CARD ONE (IPLI 



02RC 



ooco 





C02C 


0001 


n 


1802 


0002 





D02A 


0003 





C023 


P0«4 





1801 


0005 





D021 


00O6 





F038 


0007 


n 


D037 


0008 





C022 


00P9 





1803 


000 A 





D02O 


OOOB 


n 


F010 


OOOC 





D01C 


OOOD 





1805 


OOOE 





F031 


OOOF 


n 


DO 30 


0010 





C017 


0011 





D0F6 


0012 





D0F9 


0O13 





C016 


0014 





8000 


0015 





0014 


0016 


n 


COFD 


C017 





800 E 


0018 





DOFB 


0019 





FOOft 


001 A 


n 


4820 


001B 





70F7 


001C 





COOO 


001D 





4820 


001E 


n 


30F1 


00 IF 


n 


7010 


002C 





B823 


0021 





0806 


0022 





48F8 


0023 





0803 


0024 





700E 


0025 





8039 


0026 





0001 


0027 





2808 


0023 





002O 


On?o 


n 


O0O3 


002A 


n 


3829 


002B 





B800 


002C 





0000 


00?0 





4800 


002E 





Fnl7 


002F 





30F2 


0030 





08F5 


0031 





08F6 


0032 





08 r 7 


0033 





FOU 


f>034 





4820 


0035 





7011 


0036 





03F5 


0037 





C0F4 


0038 





FOEC 


0039 





0OF2 


DATE 




01MAY66 


EC NO. 


415490C 





APS 






CLDOOOOO 






ORG 


/oooo 




CLD00010 




• 


1130 


LOADER CARD 


1 


CLDC0020 




* LOAD WITH PROGRAM 


LOAD BUTTON 






* 








CLD00060 




ST AST 


LD 


RDIN+I 


CORRECT I/O CONT. COMM. 


CLD00070 






SRA 


2 


BY SHIFTING 


CLD00080 






STO 


ROJN+l 




CLD00C90 






LD 


STRD 


CORRECT I/O CONT. COMM. 


CLD0010O 






SRA 


1 


BY SHIFTING AND 


CLD00110 






STO 


STRD 


STORE WORD 


CLDC0120 . 






EOR 


STORE 


SET UP STORE LONG INST 


CLD00130 


. 




STO 


STOTJE 


PUT BACK INTO CORE. 


CLD00140 






LO 


SENSE 


CORRECT I/O CONT. COMM. 


CL000150 






SRA 


3 




CLD00160 






STO 


SENSE 




CL000170 






EOR 


RESET 




CLD00180 






STO 


RESET 




CLD00190 






SRA 


5 


MAKE STORE LONG INST. 


CLD00200 






EOR 


STORE* 1 




CLD00210 






STO 


STORE* 1 




CLD00220 






LD 


INTAD 




CL000230 






STO 


/0008 




CLD00240 






STO 


/OOOC 




CLD00250 




* 








CLDP0260 




STRT 


LD 


CHKSM 


FORM CHECK SUM .THIS CARD 


CLD00270 






A 


* 


FROM 0015 THRU 004D 


CL000280 






STO 


CHKSM 




CLD00290 






LD 


STRT+1 




CLD00300 






A 


K0001 


MODIFY ADD INSTRUCTION 


CLD00310 






STO 


STRT+1 




CLDP0320 






EOR 


C0N1 


CHECK THAT LAST LOC.CHECKD 


CLD00330 






BSC 


I 


SKIP WHEN OONE 


CL000340 






MDX 


STRT 


GO GET NEXT WORD 


CLD0035O 






LD 


CHKSM 


GET SUM OF 0013 THRU 004F 


CLD00360 






BSC 


Z 


-- SEE ACC IS 0000 IF SO GO 


CLD00370 






WAIT 


-15 


CHECK SUM ERROR 


CLD00380 




ENOCK 


MDX 


SRTRO 


START LOADING 


CLD00390 




* 








CLDP0400 




INT 


OC 


/B823 




CLD00410 






XIO 


RE SET- 1 


SENSE AND RESET DSW 


CL000420 






DC 


/48F8 


BOSC +-1 


CL000430 




K0803 


DC 


/0803 




CLD00440 






MDX 


PACK 




CL000450 




* 








CL000460 




C0N1 


A 


X /C039 




CLD00470 




K0001 


DC 


/00P1 


START RO,USED AS CONSTANT 


CLD00480 




STRD 


DC 


/2808 


/1404 SET BY PROG. 


CLD0C490 




INTAD 


DC 


INT 


RESET DSW CONTROL COMMAND 


CLD00500 




REfET 


DC 


/0P03 


/1703 SET BY PROGRAM 


CLDC0510 




CHKSM 


DC 


/3829 


SENSE DSW CONTROL COMMAND 


CLD00520 




SENSE 


DC 


/B800 


/1700 SET BY PROGRAM 


CLD00530 




RDIN 


DC 


/OOOO 


READ IN LOCATIONS 0*1 


CLD00540 






OC 


/4B00 


/1200 SET BY PROGRAM 


CLD00550 




* 








CLDP0560 




ERROR 


EOR 


KOROO 


RESTORE ACC. TO DSW 


CLD005TO 






WAIT 


-14 


**ERR. DSW IN ACC. 


CLD00580 




* 








CLD00590 




SRTRD 


XIO 


STRD-1 


START READ 


CL000600 






XIO 


RESET-i 


RESET DSW 


CL 0006 10 






XIO 


SENSE-1 


SENSE DSW FOR CRP ■ 


CL0C0620 




PACK 


FOX 


K8003 


BITS ♦ 14 ♦ 15 ONLY 


CLD00630 






esr 


7 


SKIP IF BITS 0*14*15 DNLY 


CLD00640 






MOX 


C0NT1 


CONTINUE DSW ANALYSIS 


CLD00650 






XIC 


RDIN 


RD COL. ONE-HALF WORD 


CLD00660 






LD 


RDIN 




CLD00670 






FOR 


K0001 


SWITCH READ IN AREA, EVEN 


CLD00680 






STO 


RDIN 


COLS. IN 000 IN 1 


CLD00690 

PROG ID 
PAGE 


03A3-1 
1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



BASIC DIAGNOSTIC LOADER 
LIST FOR CARD ONE (IPLI 



PART NT. 219125? 
"AGE 1A 



003A 





4820 


003B 





70F5 


003C 





C0C3 


003D 





1808 


003E 





F0C2 


003F 





C004 


0040 





OOF 7 


0041 





COFE 


0042 





B0E3 


0043 





DOFC 


0044 





70EC 


0045 





8003 


0046 





0800 


0047 





F003 


0048 





4820 


0049 





7002 


004A 





70E7 


004B 





8000 


004C 





F0D6 


0040 





4820 


004E 


n 


70DF 


004F 





30F3 



STORE 
* STOR 



* 

K800 3 
K0800 
«■ 
CONT 1 



K8000 
CONT 2 



BSC 

MDX 

LD 

SRA 

EOR 

DC 

DC 

E + 

LD 

A 

STO 

MDX 

DC 
DC 

EOR 
BSC 
MDX 
MDX 
OC 

EOR 
BSC 
MDX 
WAIT 



Z SKIP BOTH HALVES IN 

SRTRD* 1 GET 2ND HALF WORD 

START GET LAST 8 BITS 
8 SHIFT IT 

START+1 GET FIRST 8 BITS 
/C004 FIRST WORD OF STO L 

/00F7 2ND WORD OF STORE LONG 

STORE +1 CHANGED BY PR0G9 TO STO L /004F 
STORE* 1 

K0001 MODIFY STORE ADDRESS 

STORE* 1 
SRTRD* 1 

/8003 
/0800 



K8000 
I 

C0NT2 
SRTRD* 2 
/8000 

K0803 
I 

ERROR 
-13 



CHECK FOR BITS 14+15 ONLY 
SKIP BUSY AND NOT READY 



CHECK FOR BIT 4 ONLY 
SKIP END OF CARD 

**FRR IF PRGM STOPS AT WAIT 



* CARD 

* CHEC 



0050 



0000 



2 IS READ IN AT THIS LOCATION WITH THE 
K FOR READ OF 4 CARDS. 
END START 



CLD00700 
CLDP071P 
CLD00720 
CLDO0730 
CLDP0740 
CLD0075O 
CLD00760 
CLD00770 
CLD"0780 
CLD00790 
CLDP080P 
CLD00810 
CLD0082O 
CLDO083O 
CLD0084O 
CLD00850 
CLD0086O 
CLD00870 
CLDO0880 
CLDC0890 
CLDO0900 
CLD00910 
CLD0092P 
CLDC0930 
CL000940 
CLD00950 
CLD00960 
CLD0097P 
CLD00980 
CLD0099P 



DATE 
EC NO. 



01MAY66 
415490C 



PROG 10 
PAGE 



03A3-1 
1A 
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BASIC 01 AGNOSTIC LOADER 
LIST FOR CARD ONE (IPI ) 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 



BASIC DIAGNOSTIC LOADEI'. 

LIST FOR CARDS TWO THROUGH FIVE 



PART NO. 2191252 
PAGE 2A 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


CHKS" 


002A 


0013,OC15,001C 


C0NT1 


0047 


00 35 


C0NT2 


P04C 


CO 49 


C0N1 


0025 


CO 19 


ENPCK 


001 F 




ERROR 


002E 


00 4E 


INT 


0020 


CO 28 


INT AD 


0028 


CO 10 


K0001 


0026 


0017,0038,0042 


K0800 


00*6 


00 2E 


KOR03 


0023 


C04C 


K8000 


00 A B 


CO 47 


K80O3 


0045 


00 33 


PACK 


0033 


CO 24 


RDIN 


002 C 


0" 00, 0C02, 00 36,0037, 0039 


RESET 


0029 


COOB.OOOC, "021,0031 


SENSE 


002B 


COC8,000A,0032 


SRTRD 


0030 


00 IF, 0038,0044,004* 


START 


0000 


0O3C,O03E,0050 


STORE 


003F 


0006,000 7, OOOE.OOOF, 0041, 


STRD 


0027 


0003,0005,0030 


STRT 


001? 


C016,0018,001B 



DATE 
EC NO. 



01MAY66 
4154 90C 



PROG ID 
PAGE 



03A3-1 
2 











ABS 






CL DC 1000 








* 


CARDS 2,3, 


4, +5 — — 




CLDC1010 








* 


THIS PROGRAM READS ONE CARD OF 8/8 FORMAT 


CLtX102P 








* 


INT! 


3 IOCS. 


COOO THRU 


0027. 


CLDC1030 








* 


THE 


CHECK 


SUM IS CHECKFD. FOR SUM LOCS. 


CLDC1040 








* 


OOOOTHRi! 0026 TO BE 


ZERO 


CLD0105P 








* 


THE 


NUMBER 


OF WORDS 


SPECIFIED IN LOC. 0024 


CLDO1060 








• 


ARE 


MOVED 


TO THE LOCATIONS BEGINNING AT THE 


CLDC107C 








* 


ADDRESS IN 


0C25. THE WORDS MOVED ARE CHECKED 


CL0O1O8" 








* 


AGAINST THE IMAGE IN 


CCOO AND FOLLOWING. 


CLD01090 








* 


IF I 


\LL CHECKS ARE PK 


THE NEXT CARD IS READ. 


CLD"1100 








* 


CARD 2 BEGINS HERE 




CLOCUIO 








* 










CLD01120 




02BC 








ORG 


/004F 




CLD01130 




004F 


CO 20 






LD 


COUNT 


COUNT CARDS READ 


CLD01140 




0050 


8020 


r: 


TRT 


A 


K0001 




CL DO 11 50 




0051 


001E 






STO 


COUNT 




CLD0116P 




0052 


F01F 






FOR 


K0C04 


CHECK FOR 4 CARDS READ 


CLD01170 




0053 


4820 






BSC 


Z 


SKIP 4 CARDS READ 


CLD01180 




0054 


70 OB 


* 




MDX 


/0030 


GO TO START READ 


CLD01190 
CL»X>120C 




0055 


C.071 






LD 


MDX 


SET RESAOT BRANCH 


CLD0121P 




0056 


D0F9 






STO 


RSTRT 




CLD01220 




0057 


C070 






LD 


MDXO 


• 


CLD"1222 




0058 


D0A7 


* 




STO 


/oooo 




CLDC1224 
CLD"1230 




0059 


C034 


LOAD 


LD 


C0N1 




CLD01240 




005A 


D01D 






STO 


STORE 


RESTORE STORE INST. 


CLDP125P 




005B 


C022 






LD 


C0N2 




CLD"1260 




005C 


D027 






STO 


RDIN 


RESTORE PDIN LOC. 


CLD0127P 




005D 


C022 






LD 


INTAD 




CLD01280 




005E 


D0A9 






STO 


/0008 




CLD01290 




005F 


DO AC 


* 




STO 


/oooc 




CLD0130P 
CLD01310 




0060 


081D 


SRTRD 


XIO 


STRD-1 


START READ 


CL0P1320 




0061 


081E 






XIO 


RESET-1 


RESET DSW 


CLDC1330 




0062 


081F 


• 




XIO 


SENSE- 1 


SENSE DSW 


CL001340 
CLDO1350 




0063 


F027 


PACK 


EOR 


K80C3 


CHECK BITS 0, 14+15 ONLY 


CLD01360 




0064 


4820 






BSC 


Z 


SKIP IF COL. REQUEST 


CLD01370 




0065 


7031 






MDX 


C0NT1 




CL001380 




0066 


081D 






XIO 


RDIN 


READ A COLUMN 


CLD01390 




0067 


C01C 






LD 


RDIN 


SET NEXT READ IN LOCATION 


CL001400 




0068 


F008 






EOR 


K0001 




CL0O1410 




0069 


D01A 






STO 


RDIN 




CLD01420 




006A 


F013 






EOR 


C0N2 




CLD01430 




006B 


4820 






BSC 


Z 


SKIP IF BOTH HALF WORDS IN 


CLD01440 




006C 


70F4 






MDX 


SRTRD+1 




CL001450 




006D 


C018 






LD 


RDEVN 


COMBINE HALF WORDS 


CLD0146P 




006E 


1808 






SRA 


8 




CL001470 




006F 


7007 






MDX 


/0077 




CLD01490 




0070 


0000 


COUNT 


OC 


/OOOO 




CL001500 




0071 


0001 


K0001 


DC 


/0001 




CLD01510 




0072 


0004 


K0004 


DC 


/0004 




CLD01520 








• 










CLD0154O 








* 


CARD 3 BEGINS HERE 




CLD0155P 








* 










CLDO1560 




0073 








ORG 


/0077 




CL001570 




0077 


FOOF 






EOR 


ROODD 




CLD01571 




0078 


D097 


STORE 


STO 


/0010 


STORE FULL WORD 


CLD01580 




0079 


COFE 






LD 


STORE 


SET NEXT WORD LOCATION 


CLD01590 




007A 


80F6 






A 


K00P1 




CLOC1600 




007B 


DOFC 






STO 


STORE 




CLDC1610 




007C 


70E4 






MDX 


SRTRD+1 




CLDC1620 




007D 


7096 


HOP 


MDX 


/0014 


START PROGRAM 


CLDO1630 




007E 


0086 


C0N2 


DC 


RDEVN 


READ CARD CONTROL COMMAND 


CLD"1650 




007F 


1404 


STRD 


DC 


/1404 




CLD01660 




0080 


008F 


INTAO 


DC 


INT 


RESET DSW CONTROL COMMAND 


CLD01670 




DATE 


01MAY66 












PROG ID 


03A3-1 


EC NO. 


415490C 












PAGE 


2A 
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0081 


T 


1703 


0082 





0000 


0083 


fi 


1700 


008* 





0086 


0085 





1200 


0086 





oooo 


0087 





oooo 


0088 





0034 


0089 





0037 


008A 


n 


0800 


008B 





80"3 


008C 





0010 


008D 





8000 


008E 





D097 


008F 





OOOO 


0090 





OBEF 


0091 





4878 


0092 





080 3 


0093 





70CF 


0094 





F0F5 


0095 


n 


30F4 


0096 


n 


70C2 


0097 





F0F5 


0098 


n 


4820 


0099 





7005 


009A 





70C7 



009B 

009F F0F2 

OOAO 4820 

00A1 70F2 



00A2 C091 

00A3 4820 

00A4 700 2 

00A5 30F5 

00A6 70B2 



OOA? 
O0A8 
00A9 
OOAA 
OOAB 
OOAC 00 
OOAE 
OOAF 
OOBO 
0081 
O0B2 
00B3 
O0B4 
00B5 
O0B6 
00B7 



C0E4 

0C04 

1810 

00D7 

C0D6 

B400FFFF 

D0D3 

COFD 

80C0 

D"FS 

F0PT> 

4820 

70F6 

COCC 

4820 

30F6 



RESET DC 
CKSUM DC 
SENSE DC 
RDIN OC 
DC 
ROEVN DC 
RDODD DC 
K0034 DC 
K0037 DC 
K080 DC 
K8003 DC 
K0010 DC 
K8000 DC 
C0N1 STO 

INT 



K08O3 



DC 
XIO 
BOSC 
DC 

MDX 



/1703 
/OOOO 
/1700 
PDEVN 
/1 200 
/OOOO 
/OOOO 
/0034 
/0037 
/0800 
/8003 
/0010 
/8000 
/0010- STORE 



PESET- 
♦-Z 
/0803 
PACK 



SENSE DSW CONTROL COMMAND 
READ COL. CONTROL COMMAND 



SENSE AND 
BR OUT OF 



RESET DSW 
INTERRUPT 



ERROR EOR 
WAIT 
MDX 

C0NT1 FOR 
BSC 
MDX 
MDX 

* CARD 4 

» 

ORG 

C0NT2 EOR 
BSC 
MDX 

* CHECK 

LD 
BSC 
MDX 
WAIT 

MDX 

* FORM 

SUM1 LO 
STO 
SRA 
STO 
LD 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
ID 
BSC 
WAIT 



K0800 

-12 

LOAD 

K8000 

Z 

C0NT2 

SRTRD+2 

BEGINS HERE 

/009F 
K0803 
Z 
ERROR 



RESTORE ACC TO DSW 
•♦ERR. DSW IN ACC. 

PRESS START TO RETRY 
CHECK FOR BITS 14*15 ONLY 
SKIP BUSY AND NOT READY 



CHECK FOR BIT 4 ONLY 
SKIP END OF CARD 



FOR WORD COUNT OF ZERO- 



/0034 

Z 

SUM1 
-11 
LOAD 



GET WORD COUNT 

SKIP IF WORD COUNT ZERO 



**ERR. WORD COUNT 
START CONTINUES 



IS ZERO 
LOAOING 



CHECK SUM OF CARD IMAGE L0CS.'00-26 



CKLOD 



K0010 
CKLOD+1 
16 
CKSUM 

CKSUM 

/FFFF 

CKSUM 

CKLOD+1 

K0001 

CKLOD* 1 

K0037 

Z 

CKLOD- 1 

CKSUM 

Z 

-10 



SET ACC. TO /0010 



FORM SUM OF LOCS.10 THRU 36 



MODIFY ADDRESS 



CHECK THAT ALL WORDS DONE 
SKIP ALL LOCS. ADDEO 



0088 00 C400in35 
OOBA 4821 



LOAD SUM 10 THRU 36 
SKIP SUM IS CORRECT 
**ERR. IN CHECK SUM 
* 

* MOVE CARD IMAGE TO THE LOCS. BEGINING AT 

* THE ADDRESS GIVEN IN LOC. /0"25. — 

* 

MOVE LD I /0035 GET ADDRESS FOR FIRST WORD 

BSC Z SKIP ADDRESS IS OOOO 



CLD01680 

CLD01690 

CLD01700 

CLDP1710 

CLD01720 

CLD01730 

CLD0174O 

CLDP1750 

CLD01760 

CL DO 1 770 

CLD01780 

CL001790 

CLD01800 

CLD01805 

CLD01810 

CLD01820 

CLD01830 

CLD01840 

CLD01850 

CLD01860 

CLD01870 

CL 001881. 

CL001890 

CID01900 

CLDP1910 

CLD01920 

CLD01930 

CL0C1940 

CLD01950 

CL0C1960 

CL001970 

CLDC1980 

CLD01990 

CLD02000 

CL002010 

CLD020 20 

CL DO 20 30 

CLD02O4O 

CLD02050 

CLD02060 

CLD0207C 

CL002080 

CLD02090 

CLD02100 

CLD02110 

CLD02120 

CLDP213P 

CLD02140 

CLOP2150 

CLD02160 

CLD02170 

CLD02180 

CL002190 

CLD02200 

CLD02210 

CLD02220 

CLDO2230 

CLD02240 

CLD0225C 

CLD02260 

CLD02270 

CLD02280 

CLD02290 

CLD02300 

CLD02310 

CL002320 

CLD02330 

CLD02340 



OOBB 





7001 


OOBC 





70C0 


OOBD 





DOOC 


OOBE 





COCD 


OOBF 





000 1 



OOCO 00 C400FPFF 
00C2 7006 



O0C3 

00C7 

00C8 

00C9 00 

OOCB 

OOCC 

OOCD 

OOCE 

OOCF 

OODO 

00D1 

00D2 

00D3 

00D4 00 

O0D6 

00D7 

00D8 

00D9 00 

OODB 00 

OODD 

OODE 

OODF 

OOEO 

O0E1 

00E2 

00E3 

00E4 

O0E5 

O0E6 

00E7 

OOEB 

OOEA 

















c 












7008 

7013 

D400FFFF 

COFE 

80A4 

DOFC 

C0F2 

80 A 1 

DOFO 

F0B6 

4820 

70EC 

C40000 35 

D003 

C0B4 

000 3 

C400FFFF 

F400FFFF 

4820 

30F7 

COFA 

8090 

D0F8 

C0F9 

808D 

D0F7 

F0A2 

4820 

70F1 

70BD 

0059 



STRE 



GET 



MDX 

MDX 

STO 

LD 

STO 

LO 

MDX 



STRE 

HOP 

PUT+1 

K0010 

GET+1 

/FFFF 

PUT 



START PROGRAM VIA HOP 
SET FIRST WORD ADDRESS 
SET ACC. EOU. 0010 
SET TO GET FIRST WORD AT 
GET PROG. WORD 



* CARD 5 BEGINS HERE 

ORG 

MDX 



MDX 

MDXO 

PUT 



SUM2 



MDX 
STO 
LO 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
LD 
STO 
LD 
STO 
CKMOV LD 
COMP EOR 
BSC 
WAIT 
LD 
A 

STO 
LD 
A 

STO 
FOR 
BSC 
MDX 
MDX 
END 



/00C7 

LOAD-RSTRT-1 

/0013 



/FFFF 

PUT+1 

K0001 

PUT+1 

GET+1 

K0001 

GET+1 

K0034 

Z 

GET 

/0035 

CKMOV+1 

KO010 

COMP+1 

/FFFF 

/FFFF 

Z 

-9 

CKMOV+1 

K0001 

CKMOV+1 

COMP+1 

K0001 

COMP+1 

K0034 

Z 

CKMOV 

SUM1-1 

LOAD 



PUT PROG. WORD 
MODIFY PUT 



MODIFY GET 



CHECK FOR ALL WORDS MOVED 
SKIP ALL WORDS MOVED 

GET ADDRESS OF FIRST WORD 
PUT IT INTO ROUTINE 

SET TO GET FIRST WORD OF 
IMAGE 

GET WORD MOVED 

COMPARF WITH CARD IMAGE 

SKIP WORD STOREO OK 
**ERR. WORC NOT STORED OK. 

MODIFY FOP NEXT WORD 



MODIFY FOR NEXT COMPARE 



CHECK IF ALL DONE 
SKIP ALL WORDS CHECKED 



GO GET NEXT CARD 



CLD0235P 

CLD02360 

CLD02370 

CLD02380 

CLD0239P 

CLD0240C 

CLD02410 

CLD02420 

CLDC2430 

CLDC2440 

CL0C2450 

CL 00 24 56 

CLD02457 

CLD02460 

CL0O2470 

CLD0248C 

CLD02490 

CL002500 

CLD02510 

CLDT2520 

CLD02530 

CLDC2540 

CLD02550 

CL0C2560 

CL002570 

CLOO2580 

CLD02590 

CL002600 

CL0T2610 

CLDP2620 

CLD02630 

CLD02640 

CLD02650 

CLD02660 

CLD02670 

CLD02680 

CL002690 

CLD02700 

C1D02710 

CLDC272P 

CLD02730 

CLD02740 



DATF 
EC NT. 
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PAGE 
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BASIC DIAGNOSTIC LOADER 
PAPER TAPE BASIC LOADER 



PART NO. 
PAGE 
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4A 



CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 




CKLHO 


OOAC 


O0A8,O0AF,0OBl,0OB4 




CKMOV 


00D9 


0OD6,00DF,O0El,00E7 




CKSUM 


0082 


00AA,0CAB,0OAE,00B5 




COMP 


OOCB 


00D8.00E2.00E4 




C0NT1 


0097 


00 65 




C0NT2 


009 F 


00 99 




C0N1 


008 E 


00 59 




C0N2 


007 E 


005B.0C6A 




COUNT 


0070 


00 4F, 0051 




ERROR 


O094 


00 Al 




GET 


OPCO 


0" BF ,0OCE tOOOO t 0003 




HOP 


007D 


OOBC 




INT 


C"8F 


00 80 




INTAD 


O080 


0O50 




K0001 


0071 


0O5n,OO68,OO7A,OOB0,00CC,0OCF,00EO,0OE3 


xoorn 


0072 


00 52 




KOOIO 


008C 


0OA7,0CBE,OOO7 




K003A 


0OR8 


00D1.00E5 




K0O37 


008 9 


0OB2 




K0800 


008 A 


00 9* 




K0BO3 


0092 


00 9F 




K8000 


.0080 


0097 




K8003 


008 8 


00 63 




LOAD 


0059 


00 96,0CA6,00C7,00E9 




MDX 


00C7 


00 55 




MDXO 


00C8 


00 57 




MOVE 


00B8 






PACK 


006 3 


00 93 




PUT 


0«C9 


0OB0,0OC2,00CB,00CO 




RDEVN 


0086 


00 6D,007E,0084 




RDIN 


0084 


005C,0C66,0Pt,7,OO69 




RDODD 


0087 


00 77 




RESET 


0081 


0061,0090 




RSTRT 


0050 


00 56,0007 




SENSE 


008 3 


00 62 




SRTRD 


0060 


00 6C007C.009A 




STORE 


0078 


00 5A , 0079,00 7B.008E 




STRD 


007F 


00 60 




STRE 


OOBD 


00 BB 




SUM1 


00A7 


00A4.0OE8 




SUM2 


00D4 







02 BC 

0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
000 A 
0008 
OOOC 
0000 
OOOE 
OOOF 
0010 
0011 



0012 

0013 00 
0015 O 
0016 
0017 
0018 
0019 
001A 
001B 
001C 
001D 
001 E 
001F 
0020 
0021 







n 
o 
o 










0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
002 A 
002B 
002C 
0020 
002E 
002F 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
003B 
003C 
0030 
003E 
003F 



7011 
0000 
0000 
COOO 
0000 
0000 
POOO 
0000 
0000 
0000 

oooo 

0000 
003A 
0000 
0000 
0000 
0000 

oooo 
cooo 

84000000 

000 A 

COFO 

8064 

OOFB 

FO07 

4820 

70F6 

COO 3 

4820 

30F1 

7030 

206E 

00E9 

FFFF 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 

oooo 

oooo 

oooo 

oooo 

oooo • 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

oooo 

084? 
4878 

ooco 

701F 

oooo 



ABS 
ORG 
LOAD 
MDX 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



/OOOO 

IITH PROGRAM 

STRT 



LOAD BUTTON 



STRT 



«.0 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
LD 
BSC 
WAIT 
MDX 
CHKSM DC 
LAST DC 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

XIO 

BOSC 

DC 

MDX 

DC 



INT 



CHKSM 

/OOOO 

CHKSM 

STRT+2 

K0001 

STRT+2 

LAST 

Z 

'TRT 

CHKSM 

Z 

-15 

LOAD 

/2D6E 

END 

/FFFF 



FORM CHECK SUM 



MODIFY ADD INSTRUCTION 

CHECK THAT LAST LOC.CHECKD 
SKIP WHEN DONE 
GO GFT NEXT WORD 
GFT SUM OF 0000 THRU 00E8 
SKIP IF CKSUM ZERO 
CKSUM ERROR 
START LOADING 



INT 



P 

RFSFT 

♦-Z 



FACK 



SENSE AND RESET OSW 
BR OUT OF INTERRUPT 



TDLPOOOO 
TDL00010 
TDLG0020 
TDL000 30 
TDL00040 
T0L000 5O 
TDL00060 
TOL000 7" 
TDL0P08P 
TDL0009P 
TDL0010O 
TDLmilP 
TDL0012O 
TDL0013T 
TDL00140 
T0L0015T 
TDL0016" 
TDL00170 
TOL00180 
TDL00190 
TDL00200 
TDLC0210 
TDLC0220 
T0L00230 
TDL00240 
TDLC025P 
TOL00260 
TDLO027C 
TDLC0280 
TDL00290 
TDLC030P 
TDL0031C 
TDL0032C 
TDLP0330 
TDLP0340 
TDLP0350 
TDL0036O 
TDL00380 
TDLP0400 
TDL00401 
TDL00402 
TDL00410 
TDL00420 
TDL0043P 
TDL0044C 
TDL00450 
TDLC0460 
TDL00470 
TDL00480 
TDL00490 
TDL00500 
TDL0051P 
TDLP052O 
TDL0053P 
TDL00540 
TDL00550 
TDL00560 
TDLP0570 
TDL0058P 
TDL00590 
TDL00600 
TDL00610 
TDL0062P 
TDL0063C 
TDL0064P 
T0L00650 
TDL00660 
TDL00670 
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0040 


0000 


0P41 


0000 


0042 


0000 


0043 


009F 


0044 


004 E 


0045 


0028 


0046 


7F00 


0047 


7006 


004 8 


COED 


0O4 9 


0000 


004A 


4CO0 


004B 


ECFO 


0"4C 


OCOO 


0"4D 


4000 


004E 


Oftftft 


004F 


0000 


0050 


C0F2 


0051 


D01E 


0052 


C0F1 


0053 


D02E 


0054 


COFO 


0055 


D0F3 


0056 ft 


C0F1 


0057 


D008 


0058 


0823 


0O59 ft 


0R26 


0H5A 


EOFO 


005B 


F0F1 


005C 


4820 


005D 


7039 


005E 


081F 


005F 


0822 


0060 


COED 


0061 


90E4 


0062 


4820 


0063 


7001 


0064 


70F3 


0065 


C0E1 


0066 


D0F9 


0067 


C01A 


0068 


F013 


0069 ft 


D018 


006A 


F0D9 


0068 


4820 


006C 


70EB 


006D 


COEO 


006E 


1808 


006F 


FODF 


0070 


D09F 


0071 


COFE 


0072 


8009 


0073 


DOFC 


0074 


C0D4 


00 75 


9006 


0076 


00D2 


0077 


4820 


0078 


70DF 


0079 


7028 


007A 


7099 


0ft7B 


0000 


007C 


0001 


007D 


1C10 


007E 


0000 


DATE 


1MAY66 


EC NO, 


4154 90C 



C0N1 

C0N2 

C0N3 

OELET 

FIX 

REFIX 

WCNT 

K4C00 

KECFO 

KOCOO 

K4000 

RDEVN 

RDODD 

* 

LOAD 



» 
SRTRD 



* 
PACK 



STORE 



HOP 
• 

CKSUM 
KOOftl 

RESET 



DC 

DC 

DC 

STO 

DC 

DC 

DC 

MOX 

LD 

DC 

DC 

OC 

DC 

DC 

DC 

DC 

LD 

STO 

LO 

STO 

LD 

STO 

LO 

STO 

XIO 
XIO 
AND 
EOR 
BSC 
MDX 

XIO 

XIO 

LD 

S 

BSC 

MDX 

MDX 

LD 

STO 

LD 

EOR 

STO 

EOR 

BSC 

MDX 

LO 

SRA 

EOR 

STO 

LO 

A 

STO 

LD 

S 

STO 

BSC 

MDX 

MDX 

MDX 

DC 
OC 
DC 
DC 



/OOlO-STORE-l 

ROEVN 

40 

/7F00 

Y-X-l 

PDEVN-X-1 



/4CO0 

/ECFO 

/OCOO 

/4000 

/OOOO 

/OOOP 



PUNCH BIT MASK 



C0N1 

STORE 

C0N2 

ROIN 

C0N3 

WCNT 

REFIX 

X 

K0001 

SENSE 

KECFO 

K4000 

Z 

C0NT1 

RESET 

ROIN 

RDEVN 

OELET 

Z 

♦♦I 

SRTRO 

FIX 

X 

RDIN 

K0001 

RDIN 

C0N2 

Z 

SRTRD 

RDEVN 

8 

RDODD 

/OOiO 

STORE 

KOOOl 

STORE 

WCNT 

KOOOl 

WCNT 

Z 

SRTRD 

DATA 

/0014 

/OOOO 
/00ft 1 
/1C10 
/OOOO 



RESTORE STORE INST. 
RESTORE RDIN LOC . 



START READ 
SENSE nsw 
MASK OUT PUNCH BITS 

SKIP IF COL. REQUEST 



RESET OSW 

READ A COLUMN 



SET NEXT READ IN LOCATION 

SKIP IF BOTH HALF WORDS IN 
COMBINE HALF WORDS 



STORE FULL WORD 

SET NEXT WORD LOCATION 



START PROGRAM 

READ CARD CONTROL COMMAND 
PESFT DSW CONTROL COMMAND 



TDL00680 

TDLP0690 

TDL00700 

TDL00710 

T0LO0720 

T0L0073P 

TDLP0740 

TDLP0750 

TDL0076P 

TDL00770 

TDL00780 

TDL0079P 

TDLr0800 

TDL00810 

TDL00820 

TDL00830 

TDLP084P 

TDL0085P 

TDL00860 

TDL0087C 

TDL00880 

TDL00890 

TDL00900 

TDLP0910 

TDL0092P 

TDL00930 

TDL00940 

TDLC0950 

TDLP096P 

TDL00970 

TDLP0980 

TDL0099P 

TDL01000 

TDL01010 

TDL0102P 

T0L01030 

TDL01040 

TDL01050 

TDLP1060 

TDL01070 

TDL0108C 

T0L0109P 

TDL01100 

TDlOlllP 

TDL01120 

TDLC1130 

TDLP1140 

T0LO1150 

TDL01160 

TDL0J170 

TDL01180 

TD101190 

TDL01200 

TDL01210 

TDL01220 

TDL0I230 

TDL01240 

TDL01250 

T0L0126O 

TDL01270 

TDL01280 

TDL01290 

TDL01300 

TDL01310 

TDL01320 

TD101330 

TDL01340 

TDL01350 



PROG ID 
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007F 





1F01 


0080 





0004 


0081 





1F00 


0082 





004E 


0083 





1A00 


0084 





0037 


0085 





0"34 


0086 





0010 


0087 





OOOO 


0088 





OOOO 


0089 





OOOO 


008 A 





OOOO 


008B 





OOOO 


008C 





OOOO 


0ft8D 





OOOO 


008E 


p 


oooo 


008F 





OOOO 


0090 





OOOO 


0091 





OOOO 


0092 





OOOO 


0093 





OOOO 


0094 





FOB 7 


0095 





30F4 


0096 





70C2 


0097 





F0B2 


0098 





4820 


0099 





70FA 


009A 





70BE 


009 B 





OOOO 


009 C 





POOO 


009 D 





OOOO 


009E 





OOOO 


009 F 





OOOO 


OOAO 





OOOO 


00A1 


3 


OOOO 


00A2 





C091 


00A3 





4820 


00A4 





7002 


00A5 





30F5 


00A6 





70A9 



00A7 
00A8 
00A9 
OOAA 
OOAB 
OOAC 00 
OOAE 
OOAF 
OOBO 
0OB1 
00B2 
00B3 
0OB4 
00B5 
00B6 
00B7 






ft 








CODE 

0004 

1810 

DODO 

COCF 

84ftOFFFF 

DOCC 

COFD 

80CB 

DOFB 

F0D1 

4820 

70F6 

C0C5 

4820 

30F6 



DC 

SENSE DC 

DC 

RDIN DC 

DC 

KP037 DC 

K0034 DC 

K0010 DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



ERROR 



C0NT1 



COR 

WAIT 

MDX 

EOR 

BSC 

MDX 

MDX 

DC 

DC 

DC 

DC 

DC 

DC 

DC 



FOR 



» CHECK 

• 

DATA LD 
BSC 
MDX 
WAIT 
MDX 

* FORM 

SUM1 LD 
STO 
SRA 
STO 

LD 
A 

STO 
LD 

A 
STO 

EOR 
BSC 

MOX 
LD 
BSC 
WAIT 



* MOVE CARD I! 

* THE ADDRESS 



CKLOD 



03A3-1 
5 



DATE 

EC NO. 



1MAY66 
4154 90C 



/1F01 




TDLC1360 




/OftP4 


SENSE DSW CONTROL COMMANO 


TDL0137P 




/1F0O 




TDLP1380 




RDEVN 


READ COL. CONTROL COMMAND 


T0LP1390 




/1A0O 




TDLC140P 




/0037 




TDL01410 




/0034 




TDL01420 




/P010 




TDLP1430 
TDL01440 
TDL01450 
TDL0146P 
TDL0147P 
T0L01480 
TDL0149P 
TDL0150P 
TDL0151P 
TDL01520 
TDLftl53P 
TDLP1540 
TDLP155ft 
TDLP1555 
TDL01560 




KOCCO 


RESTORE ACC TO DSW 


TDLP157P 




-12 


**ERR. OSW IN ACC. 


TDLP1580 




SRTRD* I 


PRESS START TO RETRY 


TDL0159P 
TDL0160O 




K4CC0 


CHK BITS 4 AND 5 ONLY 


TDLC161P 




z 


SKIP BUSY AND NOT READY 


TDL01620 




ERROR 




TDL0163P 




SRTRD* 1 




TDLP164P 
TDLP166P 
TDL01670 
TDLP168P 
TDL01690 
TDL01700 
TDL0171P 
TDL0172P 
TDL01730 




WORD COUNT Of KM} — " — 


TDL01740 








TDLP1750 




/0034 


GET WORD COUNT 


TDL0176P 




Z 


SKIP IF WORD COUNT ZERO 


T0L01770 




SUH1 




TDL01780 




-11 


**FRR. WORD COUNT IS ZERO 


TDLP1790 




LOAD 


START CONTINUES LOADING 


TDL01800 
TDLP1810 




:CK SUM OF CARD IMAGE LOC S. ' 10- 36 


- TDL01820 








T0L0183O 




K0010 


SET ACC. TO /P010 


TDL0184P 




CKLOD* 1 




TDL01850 




16 




T0L0186P 




CKSUM 




TDL01870 




CKSUM 




T0L01880 




/FFFF 


FORM SUM OF L0CS.10 THRU 36 TDL01890 




CKSUM 




TDLP190P 




CKLOD* 1 


MODIFY ADDRESS 


TDL01910 




KOOOl 




TDL01920 




CKLOD*! 




TDLO1930 




K0037 


CHECK THAT ALL WORDS DONE 


TDL01940 




z 


SKIP ALL LOCS. ADDED 


TDL0195P 




CKLOD- 1 




TDLO1960 




CKSUM 


LOAD SUM IP THRU 36 


TDI.01970 




7 


SKIP SUM IS CORRECT 


TDL01980 




-10 


*.*ERR. IN CHECK SUM 


TDL0199P 
TDL02000 




*AGE TO 


THE LOCS. BEGINING AT 


TDL02010 




GIVEN IN LOC. /ft025. • — 


- TDL02020 








TDLO20 3O 
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01B8 00 
OOBA 
008B 
003C 
OOBD 
003E 
OOBF 
COCO 00 
00C2 



00C3 
C0C4 
00C5 
00C6 
O0C7 O 
00C8 



C4O00P35 

4820 

70ni 

70BD 

DOOC 

C0C7 

DOOl 

C400FFFF 

7006 

0010 
0000 
0000 
0000 
0"0" 
0000 



O0C9 
0"CB 

oocc 

OOCD 
OOCE 
OOCF 
OODO 
0001 
0002 
OOD? 
0004 
0006 
0007 
OODB 
00D9 
OODB 
OODD 
OODE 
OOOF 
OOEO 
0OE1 
C0E2 
00F3 
OPE 4 
00E5 
00E6 
00E7 
00E8 
00E9 
OOEA 



D400FFFF 
COFF 

80 A F 

DOFC 

C0F2 

80AC 

OOFO 

FOB3 

4820 

70EC 
"0 C400P035 
000 3 
COAE 
D00 3 
00 C400FFFF 
On F400FFFF 
4820 

30F7 

COFA 

809B 

D0F8 

C0F9 

8098 

D0F7 

F09F 

4820 

70F1 

70BD 

0000 

0050 



MOVE 



STRE 



GET 



* 
PUT 



SUM2 



LD 
BSC 

MDX 

MOX 

STO 

LD 

STO 

LD 

NDX 

DC 
DC 
DC 
DC 
DC 
DC 



STO 
LD 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
LD 
STO 
LD 
STO 
CKMOV LD 
COMP EOR 
BSC 
WAIT 
LD 
A 

STO 
LD 
A 

STO 
EOR 
BSC 
MDX 
MDX 
BSS 
END 



/0035 

Z 

5.7RF 

HOP 

PUT+1 

K0010 

GET+1 

/FFFF 

PUT 

/0010 



END 



/FFFF 

PUT*1 

K0001 

PUT*1 

GET-U 

K0001 

GET+1 

K0034 

Z 

GET 

/0035 

CKMOV* 1 

K0P10 

COMP+1 

/FFFF 

/FFFF 

2 

-9 

CKMOV* 1 

K0P01 

CKMOV+1 

C0MP*1 

K0001 

C0NP*1 

K0034 

Z 

CKMOV 

SUM1-1 



LOAD 



GET ADDRESS FOR FIRST WORD 
SKIP ADDRESS IS 0000 

START PROGRAM VIA HOP 
SET FIRST WORD ADDRESS 
SET ACC. EOU. 0010 
SET TO GET FIRST WORD AT 
GET PROG. WORD 



PUT PROG. WORD 
MODIFY PUT 



MODIFY GET 



CHECK FOR ALL WORDS MOVED 
SKIP ALL WORDS MOVED 

GET ADDRESS OF FIRST WORD 

PUT IT INTO ROUTINE 
SET TO GET FIRST WORD OF 

IMAGE 
GET WORD MOVED 
COMPARE WITH CARD IMAGE 
SKIP WORD STORED OK 
**ERR. WORD NOT STORED OK. 
MODIFY FOR NEXT WORD 



MODIFY FOR NEXT COMPARE 



CHECK IF ALL DONE 
SKIP ALL WORDS CHECKED 



GO GET NEXT CARD 



TDL02040 
TDL0205O 
TDL02060 
TDL0 2070 
TDLP2080 
TD102090 
rOL02lOO 
TDL02110 
TDL02120 
TDL02130 
TDL02140 
TDL02150 
TDL0216C 
TDL02170 
TDL02171 
TDL02172 
TDL02180 
TDL02190 
T0L02200 
TDL0221C 
TDL02220 
TDL02230 
T0L02240 
TDL02250 
TDL02260 
TDL0227P 
TDL0228C 
TDL02290 
TDL0230C 
TDLP2310 
TDL02320 
TDL02330 
TDL02340 
TDLP2350 
TDL02360 
TDL02370 
TDL02380 
TDL02390 
T0L0240P 
TDL02410 
TD102420 
TDL.02430 
TDL02440 
TDL02450 
TDL02460 
TDL02470 
TDL02480 



CP.OS c REFERENCE LISTING 



SYMBOL 


VALUE 


REFERFNCES 


CHKSM 


oo? a 


0012,OC15,001C 


CKLOD 


OOAC 


C0A8,0CAF,0"B1,00B4 


CKMPV 


00D9 


00D6,0CDF,00E1,C0E7 


CKSUM 


0073 


OOAA,'0rAB,00AE,0f>B5 


COMP 


OOOB 


O0D8tO0E2,OOE4 


C0NT1 


0097 


00 50 


C0N1 


.0043 


0050 


C0N2 


0044 


00 52 t 006 A 


CON 3 


0045 


0054 


DATA 


OOA? 


00 79 


DELET 


0046 


00 61 


END 


0OE9 


00 21 


ERROR 


0094 


0" 99 


FIX 


0O47 


0065 


GET 


OOCO 


00BF,00CE,OPDC,PPD3 


HOP 


007A 


00 BC 


INT 


003A 


oo oc 


KECFO 


004B 


00 5A 


KOCOO 


004C 


0094 


K0001 


00 7C 


CU7,005 8,0O68,P072,OC'75,0CB0,0PCC,0OCF,00EO,pnE3 


K0010 


0086 


00A7, 00B£,00O7 


K0034 


0085 


00D1.0PE5 


K0037 


0084 


0OB2 


K4C00 


004A 


OP 97 


K4000 


0040 


00 5B 


LAST 


0021 


0019 


LOAD 


0050 


0PlF,00A6t0PF9 


MOVE 


P0B8 




PACK 


005E 


00 3E 


PUT 


00C9" 


0OBD,0CC2,00CB,PPC0 


RDEVN 


004F 


0044t0C48,P06P,PP6Ot0P82 


RDIN 


008? 


0053, 0C5F, 0067,0069 


ROODD 


004F 


00 6F 


REFIX 


0048 


00 56 


RESET 


007E 


00 3B.005E 


SENSE 


0080 


0059 


SRTRD 


0058 


On64,0 06C,00 78,OP96,009A 


STORE 


0070 


0043, 0051,0071, 0073 


STRE 


OOBD 


00 B" 


STRT 


0012 


0000,OC16,0018,001B 


SUM1 


00A7 


0OA4.00E8 


SUM2 


00D4 




WCNT 


0049 


00 55,0C74,0P76 


X 


0060 


0047, 0C48, 0057,0066 


Y 


0067 


0047 
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TARLF OF CONTTNTS 



PARAGRAPH 



1 . PHRPOSF 



PAGE 
OlA 



?. PPFRFQUISITES OlA 



?. 1 
2.7 



PROGRAM PPERFQUISITFS 
FOUIPMFNT PREREQUISITES 



USE PROCFDUPE 



OlA 



3.1 

3.? 



GFNEPAL INFORMATION 
OPERATING PROCEDURE 



PRINTOUTS (NONE) 

COMMFNTS 04 



5.1 
5.2 



FUNCTIONS OF ONE-CARD DIAGNOSTIC PROGRAMS 
DESCRIPTION OF ONE-CARD PROGRAMS 



6. APPFNOIY 06 

6.1 DATA-PATH TFST PROGRAM 

6.1.1 TFST PROCEDURE 

6.1.7 PROGRAM DESCRIPTION 

6.? ADD TFST PROGRAM 

LIST OF TAI3LES 

TAHlt 

1. NORMAL WAITS 02 

2. EPPOR WAITS 03A 
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PURPOSF 

THE ONF-CARO PROGRAMS ARE SHORT TESTS USED TO HELP ISOLATE FAILING 
FUNCTIONS THAT KEEP THF BASIC DIAGNOSTIC LOADER FROM OPERATING 
CORRECTLY. THERE ARE SEVEN ONE-CARD PROGRAMS, SEQUENCE NUMBERED 
01 THROUGH 07 IN HOLLERITH - HEXADECIMAL CODE IN COLUMNS 79 AND RO. 
EACH PROGRAM IS RUN INDIVIDUALLY AND IS LOADED INTO CORE STORAGE 
USING THE PROGRAM LOAO MODE. REFER TO PARAGRAPH 5., COMMENTS, FOR 
PURPOSE AND DESCRIPTION OF FACH ONE-CARD PROGRAM. 

INCLUDED IN THF APPENDIX, PARAGRAPHS 6.1 AND 6.2, ARE MANUAL ENTRY 
TEST PROGRAMS WHICH ARE LOADED BY MEANS OF THE CONSOLE ENTRY 
SWITCHES,. ONF PROGRAM IS A DATA PATH TEST, AND THE OTHER IS AN 
ADD TEST. THESE PROGRAMS PROVIDE ADDITIONAL AID IN ISOLATING 
MALFUNCTIONS. 

PREREQUISITES 



2.1 



?.? 



A. 
B. 

C. 



PROGRAM PREREQUISITES 

NO ADDITIONAL PROGRAMS ARE REQUIRED. 

EQUIPMENT PREREQUISITES 

1131 CfNTRAL PROCESSING UNIT (CPU). 
144? CARD READ/PUNCH OR PAPER TAPE. 
2501 CARD READER (USE ONLY CARDS 1-6) 7=ERR0R. 



USE PROCEDURE 

3.1 GENERAL INFORMATION 

THF FASTFST WAY TO ISOLATE A FAILURE WITH THE ONE-CARD PROGRAMS 
IS TO STEP THROUGH EACH ONE-CARD PROGRAM LOOKING FOR ONE OF THE 
ERROR CONDITIONS POSSIBLE. 

THE POSSIBLE ERROR CONDITIONS ARE, 

A. STOP AT ERROR WAIT. 

B. INCORRECT REGISTER READINGS AT A NORMAL WAIT. 

C. FAILURE TO STOP AT A NORMAL WAIT. 

IF THF ABOVE ERROR CONDITIONS DO NOT OCCUR, IT WILL BE NECESSARY 
TO RELY ON WHATEVER ERROR CONDITIONS APPFAR. 

NORMAL WAITS-300X. NORMAL WAITS HAVE AS THEIR LAST DIGIT THF NUMBER 
OF THE ONE-CARD PROGRAM WHERF THEY OCCUR. FOR EXAMPLE WAIT 3003 
IDENTIFIES A NORMAL WAIT IN ONE-CARD PROGRAM 03. WHEN A PROGRAM HAS 
MORE THAN ONE NORMAL WAIT, REFERENCE TO THE INSTRUCTION ADDRESS 
REGISTER READING IS NECESSARY, TO CORRECTLY IDENTIFY THE WAIT. 

ERROR WAITS - 30FX. THF LAST DIGIT OF AN ERROR WAIT IDENTIFIES THE 
ONF-CARD PROGRAM WHERE WAIT OCCURS. THE NEXT TO LAST DIGIT, F, 
IDENTIFIES THE WAIT AS BEING AN ERROR WAIT. WHEN MORE THAN ONE 
ERROR WAIT OCCURS IN A ONE-CARD PROGRAM, REFERENCE TO THE INSTUCTION 
ADDRESS REGISTER IS NECESSARY TO CORRECTLY IDENTIFY THE ERROR WAIT. 

WHFN AN ERROR INDICATION OCCURS, THE LISTING OF THE PROGRAM BEING 
EXECUTED MUST BE REFERENCED TO DETERMINE THE CAUSF OF THF ERROR. 
CORRECT LOADING SHOULD BE VERIFIED BY DISPLAYING CONTENTS OF 
LOCATIONS WHERF THF PROGRAM IS STORED. THE PROGRAM SHOULD THEN BE 
RUN IN SI MODE TO LOCATE POINT OF FAILURE. 
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3.2 OPERATING PROCEDURE 

A. PLACE ALL SFVFN ONE-CARD PROGRAMS, FOLLOWED BY DECK OF BLANK 
CARDS IN 144? HOPPER AND PRESS START BUTTON. 

B. CLEAR CORE STORAGE TO 33FF AS FOLLOWS, 

1. SET MODE SWITCH TO RUN. 

2. SET CONSOLE ENTRY SWITCHES TO 33FF. 

3. TURN ON STORAGE LOAD SWITCH (ON CF PANEL). 

4. PRFSS START. 

5. PRFSS IMM STOP. 

6. TURN OFF STORAGE LOAD SWITCH (ON CE PANEL!. 

C. PRESS IMM STOP KEY. 

D. PRESS RESET KEY. 

E. PRESS PROGRAM LOAD. 

ONE-CARD 01 SHOULD LOAD AND PROGRAM SHOULD STOP AT NORMAL 
WAIT 3001 (1AR = 0002). FROM THIS POINT ON, PROCEED 
ACCORDING TO INSTRUCTIONS GIVEN FOR THE WAIT THE PROGRAM HAS 
STOPPFD AT. SEE TABLE 1 FOR NORMAL WAITS, AND TABLE 2 FOR 
ERROR WAITS. 

TABLE I. NORMAL WAITS 

NOTE. IN THIS TABLE SBR = STORAGE RUFFER REG, IAR= INSTRUCT ION ADDRESS REG, AND 
ACC=ACCUMULATOR. 



TABLF 1. NORMAL WAITS 



(CONTINUED) 



******** 

* WAI 

******** 

* SRR * 
******** 

* * 

* 3001 * 

* 
* 
* 

* 3001 
* 
* 
* 

* 3001 
* 
* 



* * 

* * 

* * 
* *. 

* 3002 * 

* * 

* * 

* * 

* * 
* *. 

* 3003 * 

* * 

* * 

* * 

* * 
* *- 



******* 

TS * 

******* 

IAR * 
******* 

* 
0002 * 

* 
* 
* 

0004 * 
* 
* 
* 

004E * 
* 
* 
* 
* 
* 

*- 

003F * 
* 
* 
* 
* 

*. 

0021 * 
* 
* 
* 
* 

*_ 



ACCUMULATOR SHOULD READ FOFO. IF OK PRESS START. 

IF NOT FOFO ERROR IS INDICATED. REPAIR IF CAUSE IS CLEAR. 

IF NOT, CONTINUING TEST MAY HELP 

ACCUMULATOR SHOULD READ 080F. IF OK PRESS START. 

IF NOT 080F ERROR IS INDICATED. REPAIR IF CAUSE IS CLEAR. 

IF NOT, CONTINUING TEST MAY HELP. 



*************** ************************************************** 

* 
INDICATES / ACTION * 

* 
*********************************************** ****************** 

* 

* 

* 

* 

* 

* 

* 

* 

* 

OFPRESS IMM STOP, RFSET, AND PROGRAM LOAD BUTTONS TO LOAD CARD * 

02. FAILURE OF PROGRAM TO STOP AT THIS WAIT INDICATES FAILURE * 

OF AN MOX OPERATION. STEPPING THROUGH PROGRAM IN SI MODF MAY * 

HELP LOCATE FAILURE. IF CAUSE OF FAILURE IS CLEAR, RFPAIR. * 

IF THE FAILURE IS NOT CLEAR CONTINUING MAY HELP TO IDENTIFY * 

THE FAILURE. * 

* 
ACCUMULATOR SHOULD READ 003E. IF OK LOAD CARD 03 BY PRESSING * 
IMM STOP, RESET, AND PROGRAM LOAD BUTTONS. IF ADD. IS NOT * 
003E, AN ERROR HAS OCCURRED. STEP THROUGH PROGRAM IN SING INST * 
MODE, CHECKING THAT IAR AND ACC DISPLAY THE SAME INFORMATION * 
AND ARE INCREMENTED BY ONF AT EACH STEP. * 

* 
ACC SHOULD READ 0001. IF OK PRESS START. * 

IF ACC IS NOT 0001, AN ERROR HAS OCCURED. STEP THROUGH * 

PROGRAM IN SI MODE, CHECKING THAT (1) ACC CONTAINS A ONE IN * 
BIT 0, (2) EACH SRA 1 INSTRUCTION IS EXECUTED PROPFRLY, AND (3)* 
NO BSC Z CAUSES A SKIP UNLESS ACCUMULATOR EQUALS ZERO. * 



******** 

* WAI 
******** 

* SBR 
******** 

* 3003 * 

* 
* 
* 

* 3003 

* 
* 
* 
* 
* 

* 3003 

* 



***** 
TS 
***** 
* IAR 

***** 
0025 



0030 



0033 



* * 

* * 

* 3003 * 003C 

* * 

* * 

* * 

* * 

* 3004 * 001E 

* * 

* * 

* * 

* 3004 * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* 3005 * 1000 

* * 

* * 

* * 

* * 

* 3005 * 004C 

* * 

* * 

* * 

* * 

* * 

* * 



ACC SHOULD READ OFOF. IF CK PRESS START. 

IF ACC IS NOT OFOF, ERROR HAS OCCURREO. SI THROUGH PROGRAM 
FROM LOCATION 0025. COMPARE RESULTS OF TEST WITH LISTING. 
CHECK FOR SINGLE-BIT OMISSION. TRY SWAPPING APPROPRIATE SLT 
CARDS. (SEE LISTING). 

ACC SHOULD READ FFFF. IF CK PRESS START. 

IF ACC IS NOT FFFF, ERROR HAS OCCURRED. SI THROUGH PROGRAM 

FROM LOCATION 002E. COMPARE RESULTS OF TEST WITH LISTING. 



******************************** ********************************* 

* 
INDICATES / ACTION * 

* 
******** ********************************************************* 

ACC SHOULD READ 0000. IF CK PRESS START. * 

IF ACC IS NOT 0000, ERROR HAS OCCURRED. SI THROUGH PROGRAM * 
FROM LOCATION 0021. COMPARE RESULTS OF TEST WITH LISTING. * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
ACC SHOULD READ FFFF. IF CK LOAD CARD 04 BY PRESSING IMM STOP. * 
RESET, AND PROGRAM LOAD BUTTONS * 

IF ACC IS NOT FFFF, ERROR HAS OCCURRED. SI THROUGH PROGRAM * 
FROM LOCATION 002E. CCM RE RESULTS OF TEST WITH LISTING. * 

* 

* 

* 

* 

* 

* 

* 

*** NOTE *** * 

IF NO ERRORS OCCUR, THIS PROGRAM SHOULD RUN CONTINUOUSLY UNTIL * 

STOPPED. IF NO ERRORS OCCUR, LOAD CARD 05 BY PRESSING IMM STOP,* 

RESET, AND PROGRAM LOAD BUTTONS. * 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



ACC SHOULD READ FFFF. IF CK PRESS START. 

IF ACC IS NOT FFFF, ERROR HAS OCCURRED. SI THROUGH PROGRAM. 

COMPARE RFSULTS OF TEST WITH LISTING. 

0023 * ACC SHOULD READ 0000. IF CK PRESS START. 



IF ACC IS NOT 0000, ERROR HAS OCCURRED. SI THROUGH PROGRAM 
FROM LOCATION 001E. REFER TO LISTING. 



PRESS RESET THEN START TO CONTINUE. 

MOST LIKELY ERROR WILL BE FAILURE OF PROGRAM TO STOP AT THIS 
WAIT. REFER TO LISTING. REFER TO PARAGRAPH 5.2.5 OF THIS 
DOCUMENT FOR DESCRIPTION OF CARD 05 PROGRAM. 



ACC SHOULD READ OFAF. IF OK LOAD CARD 06 BY PRESSING IMM STOP, 
RESET, AND PROGRAM LOAD BUTTONS. 

IF ACC IS NOT OFAF, IT INDICATES THAT THE NUMBER OF LOCATIONS 
TESTED IS INCORRECT, ERROR MAY BE CAUSED BY ADO FAILURE, WHICH * 
SHOULD BE DETECTABLE BY CARD 04 PROGRAM. PRESS START TO * 
RESTART PROGRAM. * 
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TABLE 1. NORMAL WAITS 



(CONTINUED) 



TABLE 2. ERROR WAITS 



********* 

* WAIT 

********* 

* SBR * 
********* 

* 3006 * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

n * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 

* * 
* * 

ft 300 7 * 



************** ********ft*»**************ft****************** ************* 
S * 



****** INDICATES / ACTION * 

IAR * * 

*********************************************************************** 
002E * A. SET CONSOLE ENTRY SWITCHES TO 0003 (BUSY, NOT READY SIMULATED* 
ft DSW). PRESS START. PROGRAM SHOULD RETURN TO THIS WAIT. IF 
OK PRESS START TO REPEAT TEST OR GO TO STEP B. 



B. 



ft 
ft 
ft 
ft 
ft 
ft 
* 
ft 
ft 
* 
* 
ft 

* C. 
ft 

ft 
ft 
ft 
ft 
ft 
* 

* D. 
ft 

ft 
ft 
ft 
ft 
ft 



IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 - ERROR 
WAITS, FOR APPROPRIATE ACTION. 

SET CONSOLE ENTRY SWITCHES TO 0800 (END OF CARD SIMULATED 
DSW). PRESS START. PROGRAM SHOULD RETURN TO THIS WIAT. IF 
OK PRESS START TO REPEAT TEST, OR GO TO STEP C. 

IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 - ERROR 
WAITS, FOR APPROPRIATE ACTION. 

SET CONSOLE ENTRY SWITCHES TO 8003 (COL. REQUEST, BUSY, NOT 
READY SIMULATED DSW). PRFSS START. PROGRAM SHOULD RETURN TO 
THIS WAIT. IF OK PRESS START TO REPEAT TEST, OR GO TO STEP 

D. 

IF PROGRAM STOPS AT WAIT B=30F6, REFER TO TABLE 2 - ERROR 
WAITS, FOR APPROPRIATE ACTION. 

SET CONSOLE ENTRY SWITCHES TO AN INVALID DSW SETTING (OTHER 
THAN 0003, 0800, OR 8003). PRESS START. PROGRAM SHOULD STOP 
AT ERROR WAIT B=30F6, INDICATING THAT THE PROGRAM CORRECTLY 
SENSES AN ERROR DSW. PRESS START TO RETURN TO WAIT B=3006 
(THIS WAIT) TO REPEAT TEST WITH SAME, OR DIFFERENT INVALID 
DSW. 



ft E. AFTER DETERMINING THAT CARD 06 PROGRAM REACTS CORRECTLY TO 

* THE SIMULATED DSW'S, LOAD CARD 07 BY PRESSING IMM STOP, 

* RESET, AND PROGRAM LOAD BUTTONS. 

♦_ 

0007 * 



* 
ft 
* 
* 

* 
* 
ft 
* 
* 
ft 
* 
ft 
ft 
ft 
ft 
* 
* 
« 



ft 

ft 
* 
* 
« 

ft 
* 
ft 
♦ 

* 
ft 
* 
* 
ft 
ft 
ft 
* 
ft 
* 



A. ACC AND ACC EXTENSION SHOULD READ FFFF. IF OK GO TO STEP B. 
IF NOT FFFF, LOAD DOUBLE OR ADO DOUBLE ERROR HAS OCCURRED. 
SI THROUGH PROGRAM. REFFR TO LISTING. 

B. TURN ON INTERRUPT DELAY SWITCH ( ON CE PANEL ). 

C. PRESS START. BLANK CARDS SHOULD FEED CONTINUOUSLY THROUGH 
THE READ STATION OF THE 1442. 



NOTF 



*** 



THERE ARE NO OTHER WAITS IN CARD 07 PROGRAM IN ORDER TO 
PERMIT SCOPING OF X10 FUNCTIONS. CHANGE NO OP INSTRUCTION 
IN LOCATION 002C TO AN ERROR WAIT (30F7) TO CAUSE PROGRAM 

Tn STOP ON ERROR DSW. 

PRESS STOP TO TERMINATE PROGRAM 

TURN OFF INTERRUPT DELAY SWITCH (ON CE PANEL). 



ft 

ft 
ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

* 

ft 

ft 

ft 

ft 

ft 

ft 

ft 

ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 

_* 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 
ft 



NOTF. IN THIS TABLE SR»=STnRAGE 
ACC=ACCUMULATOR. 



BUFFER REG, I AH ^INSTRUCT ION ADDRESS REG, AND 



****** ********** 

* WAITS * 
* ******* ******* 

* SBR * IAR * 
******** **ft**ft** 



INDICATES / ACTION 



ft 




ft 




ft 


ft 


30F1 


ft 


0006 


ft 


ft 




ft 


TO 


ft 


* 




ft 


004D 


ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 
ft 


30F3 


ft 

ft 


00?4 


ft 
ft 


ft 




ft 




ft 


t 




ft 




ft 


ft 




ft 




* 


ft 




ft 




ft 


ft 


30F3 


ft 


0036 


ft 


ft 




ft 




ft 


ft 




* 




ft 


ft 


30F4 


ft 


0014 


ft 


ft 




ft 




* 


ft 




ft 




ft 


ft 


30F4 


ft 


002C 


ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 


30F5 


ft 

ft 


"ooTF 


ft 


ft 


ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




* 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 


30F5 


ft 


003B 


ft 


ft 




ft 




* 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 


ft 




ft 




ft 



****** ft ftft ************************************* ****************** 

* 
* 
* 

************* **********ft***»* ft ft ft ftft ftft************** ****** ******** 

* 

STOPPING AT ANY ONE OF THIS WAITS INDICATES FAILURE OF MOX 
OPFRATION. SI THRnUGH PROGRAM. IF FAILURE APPEARS AND ITS 
CAUSE IS CLEAR, REPAIR. IF CAUSE OF FAILURE IS NOT CLEAR, 
RUNNING ADDITIONAL ONE-CARD PROGRAMS MAY HELP IDENTIFY THE 
FAILURF. 



ACC NOT 0000 WHFN TESTED. SI THROUGH PROGRAM CHECKING THAT 
(1) ACC CONTAINS A ONE IN BIT 0, (2) EACH SRA I INSTRUCTION 
IS EXECUTED CORRECTLY, AND (3) A SKIP OCCURS WHEN ACC EQUALS 
0000. 

ACC NOT 0000 WHEN TESTED. SI THROUGH PROGRAM FROM LOCATION 
002E. COMPARE RESULTS OF TEST WITH LISTING. 



LDX LONG FAILURE. SI THROUGH PROGRAM. 
LISTING. 



COMPARE RESULTS WITH 



******** 



************************************************************************ 



* 30F6 * 002D * 

* * * 

* ft ft 

* * * 
ft * * 
ft * * 

* * * 

* * * 

* * * 
************ ftft ft 



* 

* 
* 
* 
* 
* 
* 
* 
ft 
ft 
* 
* 
* 
* 
* 
* 
ft 

SUM OF SI1MPL AND SUMMI IS NOT EQUAL TO 0000. IF THEIR SUM * 
SHOULD EQUAL 0000, DIAGNOSE AND CORRECT TROUBLE. IF THEIR SUM * 
SHOULD NOT St 0000, RUU MANUAL-ENTRY ADD TEST (PARAGRAPH 6.2). * 
_ * 

* 
* 
ft 
* 
ft 
* 
* 
* 
* 
* 
* 
* 
ft 
ft 
* 
* 
* 
* 
_* 
* 
* 
* 
* 
* 
* 
ft 
ft 
ft 
***************************************************************** 



SUM OF LOCATIONS 0014 THROUGH 004F IS NOT 0000. ACC CONTAINS 
OBTAINED SU. (1) RELOAD CARD 05, (2) RUN IN SI MODE THROUGH 
LOCATION 0010, (3) DISPLAY REMAINDER OF PROGRAM, AND (4) 
COMPARE RESULTS WITH LISTING. 

IF NO FRROR IS EVIDENT, SI THROUGH CHECKSUM LOOP (LOCATIONS 
0012 THROUGH 001 A). 

IF NO FRROR IS EVIDENT, (1) RELOAD CARD 05, (2) SI THROUGH 
LOCATION 0008, (31 INSERT WAIT OP IN LOCATION 0011, (4) SET 
70F6 IN LOCATION 001A, AND (5) RUN CHECKSUM LOOP USING SI MOOE 
FOR 10CATI0NS 0011 AND 0013. VERIFY CHECKSUM AODITION. REPAIR 
ANY FAILURES DISCOVERED. 

A LOCATION DHFS NOT CONTAIN ITS OWN ADDRESS PLUS ONE. PERFORM 
FOLLOWING INSTRUCTION IN SI MODE. ADDRESS OF LOCATION IN ERROR 
WILL BF IN ACC. DISPLAY ERROR LOCATION. IT SHOULD CONTAIN ITS 
OWN ADDRESS PLUS ONE, AS A RESULT OF EXECUTING A BSI-1 AT THAT 
LOCATION. DIAGNOSE AND CORRECT. 



IF PROGRAM STOPS AT THIS WAIT FOLLOWING SETTING OF A VALID 
SIMULATED DSW IN CONSOLE ENTRY SWITCHES (0003, 0800, 8003). 
AN ERROR IN INTERPRETING THE DSW HAS OCCURRED. SI THROUGH 
PROGRAM AND REFER TO LISTING, TO LOCATE CAUSF OF ERROR. 

If PROGRAM STOPS AT THIS WAIT AFTER SETTING AN INVALID 
IN THF CONSOLE ENTRY SWITCHES, THE PROGRAM OPERATED 
COPRFCTLY. PRESS START TO RETURN TO NORMAL WAIT B=3006. 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



2 5JUL69 
571053 



PROG ID 
PAGE 



03A5-* 
3 



DATE 
EC NO. 



02JAN66 
415490 



01MAY66 
415490B 



25JUL69 
571053 



PROG ID 
PAGE 



03A5-* 
3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
ONE-CARD DIAGNOSTIC PROGRAMS 



PART NO. 2191262 
PAGE 4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 
ONE-CARD DIAGNOSTIC PROGRAMS 



PART NO. 2191262 
PAGE 4A 



4. PRINTOUTS (NOT APPLICABLE) 

5. COMMENTS 

THF ONE-CARD DIAGNOSTIC PROGRAMS ARE DESIGNED TO HELP DIAGNOSE 
MALFUNCTIONS THAT OCCUR WHILE ATTEMPTING TO LOAD A PROGRAM WITH THE 
1130 BASIC DIAGNOSTIC L OADER. THERE ARE SEVEN ONE-CARD PROGRAMS. 
EACH ONE-CARO PROGRAM TESTS A SPECIFIC FUNCTION OR GROUP OF FUNCTIONS. 
THE CARDS ARE NUMBERED FROM 01 THROUGH 07 IN HOLLERITH-HEXADECIMAL 
CODE IN COLUMNS 79 AND 80. 

FUNCTIONS OF ONE-CARD DIAGNOSTIC PROGRAMS 

THE SFVFN ONE-CARD PROGRAMS PERFORM THEFFOLLOWING FUNCTIONS. 

TESTS MDX INSTRUCTION AND DATA TRANSFER FROM 
INSTRUCTION ADDRESS REGISTER TO ACCUMULATOR. 
EXECUTES A SIMPLE-ADDITION TEST AND TESTS 
INCREMENTING OF INSTRUCTION ADDRESS REGISTER. 

TESTS BSC Z, SRA 1, LD, STO, AND EOR 
INSTRUCTIONS AND DATA TRANSFER BETWEEN RFGISTERS. 

TESTS LONG FORMAT OF LD, A, STO, LDX, EOR. 
TEST ADDITION OF POSITIVE AND NEGATIVE NUMBERS. 

TESTS ADDRESSING OF LOCATIONS 0050 THROUGH OFFE. 

DETFRMINES WHETHER 1131 CPU CORRECTLY 
INTERPRETS SIMULATED DSW'S. 

TFSTS LOAD DOUBLE AND ADD DOUBLE INSTRUCTIONS, 
AND SETS UP LOOPS TO ALLOW X10 FUNCTIONS TO BE 
CHECKED WITH AN OSCILLOSCOPE. XIO ROUTINES ARE 
DIAGNOSTIC LOADER BUT DO NOT STOP ON DSW ERROR. 

5.2 DESCRIPTION OF ONE-CARO DIAGNOSTIC PROGRAMS 
5.2.1. CARD-031 PROGRAM 

THE CARD-01 PROGRAM LOADS ACCUMULATOR WITH FOFO FROM LOCATION 
0030 AND STOPS AT WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 
INDICATING 0002 , STORAGE BUFFER INDICATING 3001, AND ACCUMULATOR 
INDICATING FOFO. FAILURE OF INDICATOR TO APPEAR AS DFSCRIBEO 
INDICATES A POSSIBLE RFAD-IN FAILURE DURING PROGRAM LOAD OR 
FAILURC OF THE LOAD-ACCUMULATOR INSTRUCTION. FOLLOWING 
DEPRESSION OF START PUSHBUTTON BY OPERATOR, PROGRAM LOADS 
ACCUMULATOR WITH 080F FROM LOCATION 0031 AND STOPS AT WAIT WITH 
INSTRUCTION ADDRESS INDICATING 0004, STORAGE BUFFER INDICATING 
3001, AND ACCUMULATOR INDICATING 080F. AGAIN, FAILURE IF 
INDICATORS TO APPEAR AS DESCRIBED INOICATES POSSIBLE 
READ-IN FAILURF OR LOAD-ACCUMULATOR FAILURE. 

NEXT DFPRFSSION OF START PUSHBUTTON, THE PROGRAM PERFORMS A 
SERIFS OF MDX INSTRUCTIONS AND STOPS AT A WAIT WITH INSTRUCTION 
ADDRESS INDICATING 004E AND STORAGE BUFFER INDICATING 3001. IF 
PROGRAM STOPS AT ANY OTHER WAIT INSTRUCTION, AN MDX FAILURE 
IS INDICATED. 



A. 


CARD 


01. 


B. 


CARD 


02. 


C. 


CARD 


03. 


D. 


CARD 


04. 


c . 


CARD 


05. 


F. 


CARD 


06. 


G. 


CARD 


07. 



5.2.2 CARD-02 PROGRAM 

THE CARD-02 PROGRAM TESTS ADD FUNCTION AND INCREMENTING OF 
STORAGE ADDRESS REGISTER. THE PROGRAM LOADS A CONSTANT OF 
0001 IN ACCUMULATOR FROM LOCATION 003F ANO CONTINUOUSLY ADOS 
THAT SAME CONSTANT UNTIL STOPPED BY WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 003E. THE ACCUMULATED TOTAL IS 
DISPLAYED BY ACCUMULATOR INDICATOR AND SHOULD BE 003E. ANY 
OTHER TOTAL INDICATES AN ADD-FUNCTION FAILURE OR INSTRUCTION 
ADDRESS REGISTER INCREMENT FAILURE 

5.2.3 CARD-03 PROGRAM 

A. PART ONE TESTS THE SKIP-ON-ZERO OPERATION AND SHIFT-RIGHT- 
ONE OPERATION. 

B. PART TWO TESTS DATA TRANSFER BETWEEN REGISTERS AS FOLLOWS. 

1. DATA TRANSFER FROM STORAGE BUFFER REGISTER TO 
ARITHMETIC FACTOR REGISTER TO ACCUMULATOR REGISTER. 

2. DATA TRANSFER FROM ACCUMULATOR REGISTER TO ACCUMULATOR 
EXTENSION REGISTER AND BACK TO ACCUMULATOR REGISTER. 

3. DATA TRANSFER FROM ACCUMULATOR REGISTER TO 
STORAGE BUFFER REGISTER. 

C. PART THREE TESTS OPERATION EOR FUNCTION. 
PART ONE 

PROGRAM SETS A 1 IN ACCUMULATOR-BIT AND THEN TRIES TO 
SKIP-ON-ZERO. AS THE ACCUMULATOR IS NOT ZERO, PROGRAM FALLS 
THROUGH AND SHIFTS RIGHT ONE POSITION. TESTING FOR 
ZERO AND SHIFTING RIGHT ONE IS CONTINUED UNTIL PROGRAM IS 
STOPPED BY WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 
INDICATING 0021. THE ACCUMULATOR SHOULD INDICATE 0001. 
ANY OTHER ACCUMULATOR INDICATION INDICATES FAILURE OF SRA 1 
OR BSC Z. 

AFTER DEPRESSION OF START PUSHBUTTON, PROGRAM PERFORMS A SHIFT- 
RIGHT-ONE OPERATION, ANO SKIPS-ON-ZERO TO A WAIT 0025, STORAGE 
BUFFER INDICATING 3003. ACCUMULATOR SHOULD INDICATE 0000. 



PART TWO 

UPON DEPRESSING START PUSHBUTTON, PROGRAM PERFORMS A SERIES 
OF ALTERNATE LD AND STO INSTRUCTIONS AND STOPS ON A WAIT 
INSTRUCTION WITH INSTRUCTION ADDRESS INDICATING 0030 ANO 
STORAGE BUFFER INDICATING 3003. ACCUMULATOR INDICATION 
SHOULD BE OFOF, OR DATA-TRANSFER FAILURE IS INDICATED. 
FAILURE MAY BE OCCURRING DURING A LD OR STO INSTRUCTION. 
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5.?. 4 



PART THREE 

PROGRAM TAKFS ACCUMULATOR CONTENTS OF OFOF LEFT AT END OF PART TWO 
AND PERFORMS EOR OPERATION WITH CONSTANT FOFO. THE FFFF RESULT 
IS STORED AT SYMBOLIC LOCATION KFFFF, AND PROGRAM STOPS ON WAIT 
INSTRUCTION WITH INSTRUCTION AODRFSS INDICATING 0033. 
ACCUMULATOR INDICATOR SHOULD IND I CAT E FFFF , OR EOR FAILURF 
IS INDICATED. 

AFTER DFPRFSSING START PUSHBUTTONt PROGRAM PERFORMS EOR OF 
FFFF IN ACCUMULATOR WITH FFFF CONTAINED AT SYMBOLIC LOCATION 
KFFFF Tn SFT ACCUMULATOR TO 0000. A SKIP-ON-ZERO OPERATION IS 
THEN ATTEMPTED. IF EOR INSTRUCTION FAILS TO ZERO ACCUMULATOR, 
PROGRAM FALLS THROUGH TO AN ERROR WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 0036, STORAGE BUFFER INDICATING 
30F3. IF THE SKIP-ON-ZERO IS SUCCESSFULLY COMPLETED, THF 
PROGRAM PERFORMS EOR OF 0000 IN ACCUMULATOR AND 0000 AT 
SYMBOLIC LOCATION KOOOO. THE RESULTS OF EOR SHOULD BE 0000. 
PROGRAM TESTS THAT ACCUMULATOR IS 0000 BY ATTEMPTING SKIP-ON- 
ZERO. FAILURE TO SKIP STOPS PROGRAM AT WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 0039, AND STORAGE BUFFER 
INDICATING 30F3, ACCUMULATOR INDICATOR SHOULD DISPLAY RESULT 
OF FAULTY EOR. 

IF PROGRAM SKIPS, PROGRAM PERFORMS EOR OF 0000 IN ACC WITH 
CONSTANT FOFO IN SYMBOLIC LOCATION KFOFO. ACC CONTENTS BECOME 
FOFO. ANOTHFR FOR IS PERFORMED WITH CONSTANT OFOF STORED IN 
HIGHEST STORAGE LOCATION. PROGRAM STOPS AT WAIT WITH IAR REG 
EQUAL 003C AND SRR REG EQUAL 3003. ACC SHOULD READ FFFF. ANY 
OTHER READING INDICATES EOR FAILURE. 

CARD-04 PROGRAM 

THE CARD-04 PROGRAM LONG FORMAT OF L D, A, STO, LDX, EOR. THEN 
THF CARD-04 PROGRAM LONG FORMAT OF LD, A, STO, LDX, EOR. THEN 
PART OF THE PROGRAM MAKES UP LONG FORM INSTRUCTIONS THEN 
p E p F nRMS AN LDX LONG OVER AN ERROR WAIT. THE ERROR WAIT WITH 
INSTRUCTION ADDRESS INDICATING 0014 AND THE STORAGE BUFFER 
INDICATING 30F4 SHOWS A FAILURE OF THE LDX LONG FORMAT. 

LONG FORMAT FOR THE REMAINING TESTS ARE DONE WHEN THE PROGRAM 

MAKES UP CONSTANTS FFFF AND 0000. THESE CONSTANTS ARE DISPLAYED 

AT NORMAL WAITS. AT EACH OF THESE WAITS THE REGISTERS REFERENCFD 

SHOULD BE CHECKED. IF THE REGISTERS ARE OK, START SHOULD BE 
PRESSED. 

AFTER THF START IS PUSHED FOLLOWING THE SECOND NORMAL WAIT, 
THE ADD TEST IS STARTED. THE ADD TEST MUST BE STOPPED BY THE 

OPFRATOR. 

THE ADD LOOP PROGRAM ADDS A MINUS ONE (FFFF) TO SUMMI I SUM 
MINUS), ADDS A PLUS ONE (0001> TO SUMPL I SUM PLUS), AND AODS 
SUMMI AND SUMPL. THE RESULTANT SUM, WHICH SHOULD BE 0000, IS 
USED TO CHECK FOR ERROR. IF THE SUM IS 0000, THE LOOP IS 
REPEATED, IF SUM IS NOT 0000, PROGRAM STOPS AT ERROR WAIT 
WITH IAR REG EQUAL 002C AND SBR REG EQUAL 30F4. ACC DISPLAYS 
FPROR SUM. 



5.2.5 CARD-05 PROGRAM 

TESTS ADDRESSING OF LOCATIONS 0050 THROUGH OFFE. AFTER INITIAL 
SETUP, PROGRAM LOADS A WAIT INSTRUCTION AT LOCATION OFFF AND 
LOADS A BRANCH TO SYMBOLIC LOCATION ( CHECK J IN LOCATION 0000. 
THE PROGRAM FORMS A CHECKSUM OF LOCATIONS 0014 THROUGH 004F. IF 
CHECKSUM IS IN ERROR, PROGRAM STOPS AT WAIT INSTRUCTION WITH 
INSTRUCTION ADORESS INDICATING 001F AND STORAGE BUFFER INDICATING 
30F5. ACCUMULATOR INOICATOR DISPLAYS ERROR CHECKSUM. 

IF CHECKSUM IS CORRECT PROGRAM LOADS A SERIES OF BSI -1 
INSTRUCTIONS IN LOCATIONS 005C THROUGH OFFE AND BRANCHES TO 
LOCATION 0550 TO EXECUTE THF BSI -1 CHAIN, WHICH CAUSES EACH 
LOCATION FROM 0050 THROUGH OFFE TO CONTAIN ITS OWN ADDRESS PLUS 
ONE. THF PROGRAM THEN STOPS AT A WAIT INSTRUCTION WITH 
INSTRUCTION ADDRESS INDICATING 1000 AND STORAGE BUFFER INDICATING 
3005. UPON DFPRESSION OF RESET AND START PUSHBUTTONS PROGRAM 
BRANCHES TO SYMBOLIC LOCATION ( CHECK). 

THE ( CHECK) ROUTINE DETERMINES IF EACH LOCATION FROM 0050 THROUGH 
OFFE CONTAINS ITS OWN ADDRESS PLUS ONE, KEEPS COUNT OF 
LOCATIONS TESTED, AND STOPS AT WAIT INSTRUCTION WITH INSTRUCTION 
ADDRESS INDICATING 004C AND STORAGE BUFFER INDICATING 3005. 
ACCUMULATOR SHOULD INDICATE OFAF. IF THE CONTENTS OF A LOCATION 
ARE IN ERROR PROGRAM STOPS AT WAIT INSTRUCTION WITH INSTRUCTION 
ADDRESS INDICATING 0038 AND STORAGE BUFFER INDICATING 30F5. 

5.2.6 CARD-06 PROGRAM 

THE CARD 06 PROGRAM CHECKS THE 1131 CPU FOR CORRECT RESPONSE TO A 
SIMULATFO DSW. THE SIMULATED DSW IS SET IN THE CONSOLE ENTRY 
SWITCHES AND CAN BE A VALID OR INVALID DSW. PORTIONS OF THE CARO 
06 PROGRAM DUPLICATE SECTIONS OF CARD 1 OF THE 1130 BASIC DIAGNOS- 
TIC LOAOER. THERE ARE THREE VALID DSW'S. 

A. 8003 BITS 0,14 AND 15 ON. COLUMN REQUESTS, BUSY, AND NOT 
READY. 

B. 0003 BITS 14 AND 15 ON. BUSY AND NOT READY. 

C. 0800 BIT 4 ON. END OF CARD (CP COMPLETE). 

AFTER INITIAL SET UP, PROGRAM STOPS AT WAIT WITH IAR REG READING 
002E AND SBR REG READING OF 3006, TO PERMIT OPERATOR TO ENTER A 
SIMULATED DSW IN THE CONSOLE ENTRY SWITCHES. 

AFTER DEPRESSION OF START BUTTON, PROGRAM READS SETTING OF CONSOLE 
ENTRY SWITCHES INTO CORE AND THEN LOADS READING INTO ACC. IF THE 
READING IS B003, THE PROGRAM REREADS THE SWITCHES ANO STORES THE 
READING. PROGRAM BRANCHES BACK TO NORMAL WAIT 3006 TO PERMIT ENTRY 
OF DIFFERENT DSW IF DESIRED. 

IF THE READING IS NOT 8003, PROGRAM CHECKS FOR READING OF 0003. IF 
TRUE, PROGRAM BRANCHES BACK TO NORMAL WAIT 3006 TO PERMIT ENTRY OF 
DIFFERENT DSW. IF 8003 READING IS NOT TRUE, PROGRAM READS CONSOLE 
SWITCHES AND CHECKS FOR ENTRY 0800. IF TRUE, PROGRAM ADOS 1 TO SUM 
WORD I WHICH CONTAINS NUMBER OF ) 800 CONDITIONS ENCOUNTERED 0. 
PROGRAM THFN BRANCHES TO NORMAL WAIT 3006 TO PERMIT ENTRY OF NEW 
DSW. IF 0800 CONDITION IS NOT TRUE, PROGRAM STOPS AT ERROR WAIT 
WITH IAR REG READING OF 002D. ACC DISPLAYS ERROR DSW. PRESSING 
START BRANCHES PROGRAM TO NORMAL WAIT 3006 TO PERMIT ENTRY OF NEW 
DSW. IF IT IS DESIRED TO LOOP PROGRAM ON A SINGLE DSW, THE NORMAL 
WAIT THAT PERMITS ENTRY OF DSW'S, MAY BE CHANGED TO A NO OP 
( 7000 ). 
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5.2.7 



APPENDIX 



6.1 



6.1.1 



CARD-07 PPOGRAM 

PART ONE OF CARD 07 PROGRAM TESTS LOAD DOUBLE AND ADD DOUBLE 
INSTRUCTIONS. AT THE END OF THE TEST, PROGRAM STOPS AT NORMAL WAIT 

l V rll,^ l nl H cLtt * FADING 0F ° 006 - THf: ACCUMULATOR AND ACCUMULATOR 
EXTENSION SHOULD READ FFFF, OR AN ERROR IS INDICATED. PRIOR TO 
DEPRESSING THE START KEY TO CONTINUE TO PART TWO, OPERATOR MUST 
TURN ON THE INTERRUPT DELAY SWITCH ON THE CE PANEL. 

PART TWO OF CARD 07 PPOGRAM IS DESIGNED TO PERMIT SCOPING OF THE 
X10 FUNCTIONS, WHILE CONTINUOUSLY READING CARDS WITH THE 1*42. THE 
READ-CARD ROUTINE IS A DUPLICATE OF READ-CARD ROUTING IN CARD 1 OF 
THE 1130 BASIC DIAGNOSTIC LOADER. 

AFTER INITIAL SET UP, PROGRAM CAUSES CARD TO FEFD, RESET DSW, AND 
SENSE DSW. IT THEN CHECKS OSW FOR A 8003 INDICATION. IF TRUE, 
PROGRAM READS CARD COLUMN INTO LOCATION 0000 OR 0001. ODD NUMBERED 
COLUMNS ARE READ INTO LOCATION 0001. EVEN NUMBERED CARD COLUMNS 
ARE READ INTO LOCATION 0000. PROGRAM THEN LOADS ACC FROM LOCATION 
JUST LOADED, AND BRANCHES BACK TO RESET AND SENSE DSW, AND CHECK 
FOR 8003 DSW AGAIN. 



IF DSW IS NOT 8003, 
PROGRAM BRANCHES BA 
WILL REMAIN IN THIS 
OR THE 0003 CONOITI 
CONDITION NOT TRUE, 
0800 CONDITION. IF 
FEEDING AND REPEATS 
PROGRAM WILL AGAIN 
OPERATOR HAS AN OPT 
BY INSERTING A WAIT 



THE PROGRAM CHECKS FOR A 0003 DSW. IF TRUE, 
CK TO SENSE DSW AND CHECK FOR 8003 DSW. PROGRAM 

CLOSED LOOP UNTIL THE 8003 CONDITION IS TRUE 
ON IS NOT TRUF. WHEN THE PROGRAM FINDS THE 0003 

IT SENSES AND RESETS THE OSW AND CHECKS FOR 
TRUE, PROGRAM BRANCHES TO START ANOTHER CARD 

THE ENTIRE PROCESS. IF 0003 IS NOT TRUE, 
BRANCH TO START ANOTHER CARD FEEDING. THE 
ION TO STOP THE PROGRAM AT LOCATION 002C 



DATA PATH TEST PROGRAM 

THIS PROGRAM IS LOAOED USING THE CONSOLE ENTRY SWITCHES AND 

If^JLJ H ^ B J LITV ° F ™ F UM CPU T0 TRANSFER ONES AND ZEROES 
BETWEEN THE FOLLOWING REGISTERS. 



A. 



B. 



FROM STORAGE BUFFER REGISTER TO ARITHMETIC FACTOR 
REGISTER TO ACCUMULATOR REGISTER TO STORAGE ADDRESS 
REGISTER TO INSTRUCTION ADDRESS REGISTER. 

FROM ACCUMULATOR REGISTER TO ACCUMULATOR EXTENSION 
REGISTER TO ACCUMULATOR REGISTER. 



C. 
D. 
E. 



FROM ACCUMULATOR REGISTER TO STORAGE BUFFER REGISTER. 

FROM INSTRUCTION ADDRESS REGISTER TO STORAGE BUFFER REGISTER. 

FROM INSTRUCTION ADDRESS REGISTER TO ACCUMULATOR REGISTER. 
TEST PROCEDURE 

A. CLEAR STORAGE TO WAIT INSTRUCTION 33FF. SEE PARAGRAPH 3.3.6. 

B. ENTER THE FOLLOWING PROGRAM USING CONSOLE ENTRY SWITCHES. 



LOCATION 
FFFA 

FFFB 

FFFC 
FFFD 

FFFE 
FFFF 

0000 

oooi 

0002 

0003 
0004 



NOTE 
ALL NUMBERS SHOWN BELOW ARE IN HEXADECIMAL NOTATION. 



CONTENT 
0006 

4480 



FFFD 
FFFD 

DOO? 
COFC 
4480 

000? 
0002 

DDF 8 

70F5 
C. 



MNEMONIC 
LD 

BSI I 



STO 



LD 



BSI I 



STO 



MDX 



COMMENTS 

LOAD ACCUMULATOR WITH CONTENTS CF LOCATION 
0001. 

STORE CONTENTS OF I COUNTER (FFFD) AT 
ADDRESS STORED IN LOCATION FFFD. SET I COUNTE 
TO THAT ADDRESS AND AOD ONE TO I COUNTER. 

ADDRESS POSITION OF BSI I INSTRUCTION. 

THIS IS THE ACTUAL BRANCH ADDRESS FOR THE 
THE BSI I INSTRUCTION AND IS PEPLACED BY THE 
BSI I. 

STORE CONTENTS OF ACCUMULATOR AT LOCATION 
0001 (SHOULD NOT CHANGE). 

LOAD ACCUMULATOR WITH CONTENTS OF LOCATION 
FFFC. 

STORE CONTENTS OF I COUNTER (000?) AT 
ADDRESS STORED IN LOCATION 0002. SET I 
COUNTER TO THAT ADDRESS AND ADD ONE TO I 
COUNTER. 

THIS IS ADDRESS POSITION OF BSI I 
INSTRUCTION. 

THIS IS THE ACTUAL BRANCH ADDRESS FOR THE 
BSI I INSTRUCTION AND IS REPLACEO BY THE 
BSI I INSTRUCTION. 

STORE CONTENTS OF ACCUMULATOR AT LOCATION 
FFFC { SHOULD NOT CHANGE ). 

BRANCH TO LOCATION FFFA. 



D. 



LOAD INSTRUCTION ADDRESS REGISTER WITH FFFA. 

^L™ R0UGH PR0GRAM I" SI MODE, CHECKING THAT PROGRAM LOOPS 
PROPFRLY. ANY DATA-PATH ERROR SHOULD RESULT IN THF IMPROPER 
BRANCHING OF A BSI I INSTRUCTION AND STOPPING AT A WAIT. THE 
LOCATION BEFORE THE WAIT SHOULD CONTAIN THE CONTENTS OF 
INSTRUCTION ADDRESS REGISTER WHEN THE BRANCH OCCURRED. 
LOGICAL RECONSTRUCTION OF THE ERROR SHOULD ISOLATF A DATA- 
TRANSFER ERROR AND SUGGEST THE CIRCUIT CARD CAUSING THE 
t RROR * 
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6.2 



6.1.2 



NOTE 

A BRANCH OUTSIDE OF THE PROGRAM INTO A CORE 
LOCATION LOADED WITH 33FF INDICATES AN ERROR 
HAS OCCURRED. SUBTRACT TWO FROM INSTRUCTION 
ADDRESS INDICATOR READING AND DISPLAY 
LOCATION. THE CONTENT OF LOCATION DISPLAYED 
IS THE INSTRUCTION ADDRESS REGISTER SETTING 
WHEN THF ERRONEOUS BRANCH OCCURRED. IF THE 
BRANCH WAS CAUSED BY A BSI I INSTRUCTION 
FAILURE, THE LOCATION JUST CHECKED WILL HAVE 
A VALUE HIGHER BY ONE THAN THE ADDRESS OF THE 
SECOND WORD OF THE BSI I INSTRUCTION. IF THIS 
IS THF CASE, DISPLAY LOCATIONS WHERE PROGRAM 
IS STORED TO DETERMINE IF THE LOCATIONS HAVF 
CHANGED. THE ADDRESSES OF BSI I INSTRUCTIONS 
ARE STORED BY THE STO INSTRUCTIONS, AND THE 
LOCATIONS FFFD AND 0002 ARE STORED BY THE 
BSI I INSTRUCTIONS. STATIC OR INTERMITTENT 
DATA TRANSFER ERRORS SHOULD BE READILY OE- 
TECTFD RY THIS MEANS AND BE EASY TO ISOLATE 
BECAUSE OF THE UNIQUE FAILURE INDICATIONS. 

ERRORS IN THE DATA PATH PROGRAM SHOULD BE 
CAUSED BY SINGLE BIT FAILURES, OR BY HALF- 
WORD FAILURES. THUS, DROPPED OR ADDED BITS 
CAN RE REFERENCED DIRECTLY TO A CIRCUIT CARD. 
SWAP INOICATED CIRCUIT CARD TO SEE IF FAILURE 
CHANGES. 

THE 0, U, A, AND E REGISTERS' CIRCUIT CARDS 
ARE LOCATED IN ROW 4 OF THE CARD GATE, AND 
ARE INTERCHANGEABLE. 

THF I, B, AND M REGISTERS' CIRCUIT CARDS ARE 
LOCATED IN ROW 6 OR THE CARD GATE, AND ARE 
INTERCHANGEABLE. 



FAIL ING BIT- 1 
COLUMN B 



2 3 4 5 
C D 



6 7 

F 



8 9 

H 



10 11 

J 



12 13 

K 



1* 15 

L 



THE FOLLOWING CARDS CONTROL HALF-WORD 
TRANSFERS AND ARE INTERCHANGEABLE. 

M4.M5, M7, L5, AND L6. 



PROGRAM DESCRIPTION 



THE LD IN 
TING THE 
INSTRUCTI 
SENT THRO 
RETURNED 
IS ACCOMP 
INTO LnrA 
PHY IS US 
SFTTING T 
DURING TH 
INSTRUCTI 
BSI I INS 
THIS LOCA 
WITH 33FF 



STRUCTION AT LOCATION FFFA PERFORMS THE FUNCTION OF SET- 
ACCUMULATOR TO 000? SO THAT WHEN THE FOLLOWING BSI I 
ON IS PERFORMFD, A COMPLEMENT BIT PATTERN (FFFOI WILL BE 
UGH THF ACCUMULATOR, THUS TESTING THAT THE ACCUMULATOR IS 
TO 0002 AT THE END OF THE BSI I INSTRUCTION. THIS TEST 
LISHEO BY STORING THF CONTENTS OF THE ACCUMULATOR BACK 
TION 0001 AFTER THE BSI I INSTRUCTION. THF SAME PHILOS - 
ED DURING THE BSI I INSTRUCTION AT LOCATION 00000 BY 
HF ACCUMULATOR TO FFFD WHILE 0002 IS SENT THROUGH IT 
E BSI I INSTRUCTION. A FAILURE OF EITHER BSI I 
ON THAT AFFFCTS THE ACCUMULATOR WILL CAUSE THE FOLLOWING 
TRUCTION TO TAKE ITS ADDRESS FROM THE WRONG LOCATION. 
TION WILL PROBABLY BF ONE OF THE CORE LOCATIONS LOADED 
, THUS CAUSING THE PROGRAM TO STOP. 



ADD TEST PROGRAM 

THIS PROGRAM HELPS LOCATE AN ADD FAILURE THAT CANNOT BE LOCATED 

WHEN RUNNING CARD 04 OF ONE-CARD PROGRAMS IN SI MODE, BECAUSE 

OF THE DYNAMIC NATURE OF THE PROBLEM. IF THE CONTENTS OF SUMPL 

AND SUMMI DO NOT ADD TO 0000, THERE HAS BEEN A FAILURE IN 

ADDING 0001 TO SUMPL, OR A FAILURE IN ADDING FFFF TO SUMMI. 

TO DETERMINE WHICH OF THE TWO SUMS IS IN ERROR, IT MUST BE ASSUMED 

THAT ONF OF THEM IS CORRECT IN ORDER TO ARRIVE AT THE VALUE OF 

THE OTHFR PRIOR TO THE FAILURE, IN OTHER WORDS, TO DETERMINE 

VALUE OF SUMPL PRIOR TO FAILURE. IT MUST BE ASSUMED THAT 

PRESENT VALUE OF SUMMI IS CORRECT ANO VICEVERSA. EXECUTE 

ADD TEST PROGRAM AS FOLLOWS, 

A OBTAIN VALUF OF SUMPL PRIOR TO FAILURF BY DETERMINING 
TWO'S COMPLEMENT OF (SUMMI - FFFF). 

B. ORTAIN VALUE OF SUMMI PRIOR TO FAILURF BY DETERMINING 
TWO'S COMPLEMENT OF (SUMPL - 0001 >. 

C. LOAD FOLLOWING PROGRAM BY MEANS OF CONSOLE ENTRY SWITCHES. 

NOTE 
ALL NUMBERS SHOWN BELOW ARE IN HEXADECIMAL NOTATION. 
COMMENTS 
WILL BE IN ACCUMULATOR WHFN ADO OCCURS. 

WILL BE ADDED TO ACCUMULATOR OUR ING ADD. 
USED TO CHECK ADD OPERATION. 

LOAD ACCUMULATION FROM LOCATION 0000. 
AOD CONTENTS OF LOCATION 0001 TO ACCUMULATOR. 
FOR ACCUMULATOR WITH CORRECT ANSWER. 
SKIP ON ZERO TO LOCATION 0008. 
WAIT ON ERROR HAS OCCURRED. 
BRANCH TO LOCATION 0003. 
LOAD INSTRUCTION ADDRESS REGISTER WITH 0003. 

E. RUN PROGRAM IN RUN MODE. ANY AOD FAILURE WILL CAUSE 
PROGRAM TO STOP AT WAIT INSTRUCTION WITH INSTRUCTION ADDRESS 
INDICATING 0008. 

F. IF PROGRAM RUNS CONTINUOUSLY WITHOUT ERRORS. 

1. PRESS STOP PUSHBUTTON. 

2. LOAO LOCATION 0000 WITH VALUE OF SUMMI PRIOR TO ERROR. 

3. LOAD LOCATION 0001 WITH FFFF. 

4. LOAD LOCATION 0002 WITH CORRECT SUM OF SUMMI PLUS FFFF. 

5. RUN AGAIN IN RUN MOOE. 

LAST PAGE 



LOCAT ION 


CONTEf 


MTS 


MNEMOI 


0000 


VALUE 


OF 


SUMP 




PRIOR 


TO 


ERROR 


0001 


0001 






0002 


CORRECT ! 
ADDITION 


SUM OF 


0003 


OOFC 




LD 


0004 


80FC 




A 


0005 


FOFC 




EOR 


0006 


4820 




BSC Z 


0007 


3000 




WAIT 


0008 


6003 




LOX 




D. 
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ABS 










000020 




0?BC 






ORG 











000030 










* TFST KOX AND 1 TO 


A TRANSFER 




000040 










* TEST 


READ 1 


N ON PROG 


. LOAD. 




000050 




0000 





CO?F 


LD 


/0030 








000060 




0001 





*001 


WAIT 


/0001 


— SFE ACC IS FOFO 




000070 




000? 





ro?F 


LD 


/0031 








000080 




000 3 





3101 


WAIT 


/0001 


--SEE ACC IS OgOf 




000090 




0004 





703F 


HOX 


/0044 








000100 




ooos 





30*1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000110 




0006 





nn 


WAIT 


-15 


♦•FRR., 


RFStrT THEN 


SI 


000120 




0007 





»0F1 


WAIT 


-15 


•*ERR., 


RESET THEN 


SI 


000130 




0008 





30F1 


WAIT 


-15 


♦♦FRR. , 


RESFT THEN 


SI 


0001*0 




0009 





30? 1 


WAIT 


-15 


♦♦ERR., 


R6SFT THEN 


SI 


000150 




OOOA 





30F1 


WAIT 


-15 


♦♦FRR., 


RESFT THEN 


SI 


000160 




oooe 





10F1 


WAIT 


-15 


♦♦FUR., 


RESFT THEN 


SI 


000170 




OOOC 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


0001 HO 




0000 





31M 


WAIT 


-15 


♦»ERR., 


RESFT THEN 


SI 


000190 




000 = 





nn 


WAIT 


-15 


♦♦FRR., 


RESFT THEN 


SI 


000200 




OOOF 





30F1 


WAIT 


-15 


♦♦FRR., 


RESFT THEN 


SI 


000210 




0010 





*0F1 


WAIT 


-15 


♦♦ERR.. 


RFSFT THEN 


SI 


000220 




0011 





30F1 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000230 




oni? 





npj 


WAIT 


-15 


♦♦FRR., 


RFSET THEN 


SI 


000240 




001 i 





»f>=l 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000250 




0014 





30F1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000260 




0015 





<DF1 


WAIT 


-15 


♦»ERR., 


RESFT THEN 


SI 


000270 




0016 





»0F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000280 




0017 





1TF1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000290 




ooi e 





30F1 


WAIT 


-15 


♦♦FRR., 


RFSET THEN 


SI 


000300 




0019 





33 c l 


WAIT 


-15 


♦♦ERR., 


RFSFT THEN 


SI 


000310 




001A 





30FI 


WA1 T 


-15 


♦♦ERR., 


RFSET THEN 


SI 


000320 




001B 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000330 




001C 





30F1 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000340 




0010 





33FJ 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000350 




ooie 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000360 




001F 





31* 1 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000370 




00?0 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000380 




00? 1 





30F1 


WAIT 


-15 


•♦FRR., 


RFSET THEN 


SI 


000390 




00?2 





30F1 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000400 




002 3 





nFj 


WAIT 


-15 


♦♦ERR., 


RFSET THEN 


SI 


000410 




002* 





33F1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000420 




00?5 





33F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000430 




00?ft 





30F1 


WAIT 


-15 


♦•tRR.. 


RESET THEN 


SI 


000440 




00?7 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000450 




00?S 





33F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000460 




00?9 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000470 




00?A 





30 Fl 


WAIT 


-15 


**ER«., 


RESET THEN 


SI 


000480 




00?B 





30*1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000490 




on?c 





11F1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000500 




oo?n 





30M 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000510 




00? E 





3 IF I 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000520 




002 F 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000530 




0030 





FOFO 


DC 


/FOFO 








000540 




0031 





080F 


DC 


/OflOF 








000550 




003? 





30F1 


WAIT 


-15 


♦♦FRR., 


RESET THEN 


SI 


000560 




003 3 





30F1 


WAIT 


-15 


♦♦FRR., 


RESFT THFN 


SI 


000570 




0034 





30F1 


WAIT 


-15 


♦♦FRR., 


RESFT THEN 


SI 


000580 




0035 





3 1 )*! 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000590 




003IS 





30^1 


WAIT 


-15 


♦♦ERR., 


RFSET THEN 


SI 


000600 




0037 





3TF1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000610 




0038 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000620 




0039 





nFj 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000630 




003* 





30F1 


WAIT 


-15 


♦♦ERR., 


RESET THEN 


SI 


000640 




003* 





33F1 


WAIT 


-15 


••FRR., 


RESET THEN 


SI 


000650 




003C 





30F1 


WAIT 


-15 


•♦ERR., 


RESET THEN 


SI 


000660 




0030 





J0F1 


WAIT 


-15 


♦♦ERR., 


RESFT THEN 


SI 


000670 




OOVE 





7000 


*ox 


• . 








000680 




003F 





7000 


*dx 


/0040 








000690 




DATE. 




0IMAV66 












PROG 10 


03A5-1 


EC NO. 


41549QB 












PAGE 


1 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



ONE-CARD DIAGNOSTIC PROGRAMS 
CAHO 01 



PART NO. ?19l?60 
PAGE 1A 



0040 





30F1 


004 1 





30F1 


0042 





30F1 


0043 





39F1 


0044 





70F9 


3045 





*0F1 


0046 





30F1 


0047 





J0F1 


004 8 





J0F1 


0049 





30F1 


004A 





30F1 


004 B 





30 p l 


004C 





30F1 


0040 





3001 


004 E 





?000 


004F 





1000 


0050 




0000 



WAIT 


-15 


♦♦ERR., 


RESET 


THFN 


SI 


000700 


WAIT 


- 15 


♦♦ERR., 


RFSFT 


THFN 


SI 


000710 


WAIT 


-15 


•*C««., 


RESET 


THEN 


SI 


000720 


WAIT 


-15 


**f.RR., 


RFSFT 


THF.N 


SI 


000730 


MDX 


/003E 










000740 


WAIT 


-15 


♦♦ERR., 


RESET 


THEN 


SI 


000750 


kAIT 


-15 


♦♦ERR., 


RFSFT 


THEN 


SI 


000760 


WAIT 


-15 


•♦ERR., 


RESET 


I MEN 


SI 


000770 


W4IT 


-15 


♦♦EKR., 


R C SFT 


THEN 


SI 


000780 


WAIT 


-15 


♦♦ERR., 


RE SET 


THEN 


SI 


000790 


WAIT 


-15 


♦•ERR., 


RFSFT 


THFN 


SI 


000800 


WAIT 


-15 


»*EBH., 


RFSFT 


THEN 


SI 


000810 


WAIT 


-15 


*»F.»»., 


RESET 


TmFN 


SI 


000820 


WAIT 


/0001 


--STOP 


^RF INDICATES OK 


000830 


DC 


/2000 


HtXlOFClMAL 


NUMBER 


000840 


DC 


/1000 


HFXIOECIMAL 


NUM3FR 1 


000850 


END 
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CROSS REFERENCE LISTING 
SYMBOL VALUE REFERENCES 



DATE 01MAY66 

EC NO. 415490B 



PROG 10 03*5-1 
PAGE 2 









A.BS 






000890 




02 BC 






ORG 


/OOOO 




000900 










* TEST ADO BY ONE AND 


INCREMENT 1 COUNTER 


000910 




0000 





C03E 


LO 


/003F 


AQD /0001 TO ACC. AT EACH 


000920 




0001 





8030 


A 


/003F 


INST. FROM LOC. /OOOO 


000930 




0002 





803C 


A 


/003F 


TO LOC. /003E. TOTAL 


000940 




0003 





803B 


A 


/003F 


AT WAIT AT /003E SHOULD 


000950 




0004 





803A 


A 


/O03F 


BE /003E. 


000960 




0005 





8039 


A 


/003F 


IF ANSWER WRONG 


000970 




0006 





803* 


A 


/003F 


1. DISPLAY LOCS. /003F 


000980 




0007 





8037 


A 


/003F 


/0040 


000990 




0008 





8036 


A 


/003F 


/0041 


001000 




0009 





8035 


A 


/003F 


/OOOO. 


001010 




000 A 





8034 


A 


/003F 




001020 




oooe 





8033 


A 


/003F 


2. LOAD OK. CHECK THE 


0010 30 




oooc 


9 


B032 


A 


/003F 


FOLLOWING CARDS 


001040 




000D 





8031 


A 


/003F 


BY SWAP ♦ RE-RUN 


001050 




000 E 





8030 


A 


/003F 


QUAD ♦ IBM. 


001060 




000 F 





802F 


A 


/003F 


OR SINGLE INSTRUCTION 


001070 




0010 





80?£ 


A 


/003F 


FROM 70000 ♦ SEE 


001080 




0011 





8020 


A 


/003F 


WHEN ACC. NOT EOU. 


001090 




0012 





802C 


A 


/003F 


I COUNTER. 


001100 




0013 





802B 


A 


/003F 




001110 




0014 





802A 


A 


/003F 




001120 




0015 





8029 


A 


/003F 




001130 




0016 





8028 


A 


/003F 




001140 




0017 





8027 


A 


/003F 




001150 




0018 





8026 


A 


/003F 




001160 




0019 





8025 


A 


/003F 




001170 




001 A 





8024 


A 


/003F 




001180 




001B 





8023 


A 


/003F 




001190 




001C 





8022 


A 


/003F 




001200 




0010 





8021 


A 


/003F 




001210 




001E 





8020 


A 


/003F 




001220 




001 F 





801F 


A 


/003F 




001230 




0020 





801 E 


A 


/003F 




001240 




0021 





801D 


A 


/003F 




001250 




0022 





801C 


A 


/003F 




001260 




0023 





801B 


A 


/003F 




001270 




0024 





801A 


A 


/003F 




001280 




0025 





8019 


A 


/003F 




001290 




0026 





8018 


A 


/003F 




001300 




0027 





8017 


A 


/003F 




001310 




0028 





8016 


A 


/003F 




001320 




0029 





801 5 


A 


/003F 




001330 




002 A 





8014 


A 


/003F 




001340 




002 B 





8013 


A 


/003F 




001350 




002C 





8012 


A 


/003F 




001360 




0020 





BOH 


A 


/003F 




001370 




002E 





8010 


A 


/003F 




001380 




002F 





800F 


A 


/003F 




001390 




0030 





SOOE 


A 


/003F 




001400 




0031 





800D 


A 


/003F 




001410 


* ' 


0032 





800C 


A 


/003F 




00U20 ' 




0033 





BOOB 


A 


/003F 




001430 • 




0034 





800A 


A 


/003F 




001440 




O035 





8009 


A 


/003F 




001450 




0036 





8008 


A 


/003F 




001460 




0037 





8007 


A 


/003F 




001470 




0038 





8006 


A 


/003F 




001480 




0039 





9005 


A 


/003F 




001490 




003A 





B004 


A 


/003F 




001500 




003B 





8003 


A 


/003F 




001510 




003C 





800? 


A 


/003F 




001520 




0030 





8001 


A 


/003F 




001530 




003F 





3002 


WAIT 


/0002 


— SEE ACC. IS 003E 


001540 




003 F 





000 1 


DC 


/0001 


CONSTANT ADQED AT 0-3D 


001550 




0040 


a 


FBFF 


DC 


/F8FE 


CONSTANT TO CHECK CRO READ 


001560 




OATF 




Q1MAY66 






. ' 


PROG ID 
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EC NO. 
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PAGE 
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0041 0000 

004E 2000 

004F 0800 

0050 0000 



BSS /O 

DC /2000 

DC /0800 

ENO 



HEXIDECIMAL NUMBER 
HEXIOECIMAL NUMBER 2 



001570 
001580 
001590 
001600 



CROSS REFERENCE LISTING 
SYMBOL VALUE REFERENCES 



OATF 
EC NO. 



01MAY66 
415490B 



PROG ID 
PAGE 



03A5-1 
3 



OATE 
EC NO. 



01MAV66 
415490B 



PROG ID 03A5-1 
PAGE 3A 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 



ONF--CAKO DIAGNOSTIC PROGRAMS 
CARD 03 



PART NO. 
PAGE 



2191260 

4 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FQB THf 1110 SYSTEM 



ONt-CAKD DIAGNOSTIC PROGRAMS 
CARD 03 



PART NC. 
PAGE 



7101760 
4A 



028C 



0000 





cmc 


0001 





4820 


0002 





1801 


0003 





4820 


0004 





1801 


0005 





4820 


0006 





1801 


0007 





4820 


0008 





1801 


0009 





4820 


OOOA 





1601 


0006 





4820 


oooc 





1801 


0000 





4820 


OOOF 





! 601 


OOOF 





4820 


0010 





1801 


0011 





4820 


0012 





1801 


0013 





4820 


0014 





1301 


0015 





4820 


0016 





1801 


001 7 





4820 


0018 





1801 


0019 





4820 


001 A 





1801 


ooie 





4B20 


001C 





1801 


0010 





4820 


OOIE 





1801 


001F 





4820 


0020 





30 03 


0021 





1801 


0022 





4820 


0023 





30F3 


9024 





3003 



ABS 

ORG /OOOO 

CHECK 8SC Z, S«A 1 , AND EOR. 

LOAD CAPD ANO RUN PROGRAM. PROGRAM SHOULD STOP 
AT WAITS FOLLOWED BY -- FBR SEEING THAT THF REGS. 
SHOWN ARE CORRECT, DIFFfRFNCFS INDICATE FRKORS. 
WAITS FOLLOWED BY ** OCCUR ONLY ON ERRORS. 

THE FIRST TEST IS OF SRA 1 AND BSC I. 

A ONE IS PLACED INTO THE BIT ZERO POSITION AND 
TFSTEO AT EACH TIME BY A BSC Z wMl CH SHOULD NOT 

SKIP THE ACC. IS SHOWN AFTER EACH SRA 1. 



LO 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

8SC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SRA 

BSC 

SPA 

BSC 

WAIT 



K8000 8000 

Z SHOULD NOT SKIP 

1 4000 

Z SHOULD NOT SKIP 

1 2000 

2 SHOULD NOT SK|P 
1 1000 

Z SHOULD NOT SKIP 

1 0800 

Z SHOULD NOT SKIP 

1 0400 

Z SHOULD NOT SKIP 

1 0200 

Z SHOULD NOT SKIP 

1 0100 

Z SHOULD NOT SKIP 

1 0080 

Z SHOULD NOT SKIP 

1 0040 

Z SHOULD NOT SKIP 

1 0020 

I SHOULD NOT SKIP 

I 0010 

Z SHOULD NOT SKIP 

1 0008 

Z SHOULD NOT SKIP 

I 0004 

Z SHOULD NOT SKIP 

1 0002 

I SHOULD NOT SKIP 

1 0001 

Z SHOULO NOT SKIP 

/0003 — I EOU. 0021 A 



EQU. 0001 



ERROR, RESET THEN SI, SEE EACH INST. 



SRA 
BSC 

WAIT 
WAIT 



*ok. shows 



ok 
l 

z 

-13 
/0003 
ERROR, 
OK 



0025 


C018 


0026 


0008 


002 7 


C0D7 


0028 


D007 


0029 


C0O6 


002A 


1804 


002B 


D003 


002C 


COD 2 


0020 


D0D2 


002E 


C001 


OATfc 


01MAY66 


EC NO. 


41S490B 



PRESS START 
0000 
SHOULO SKIP 
**ERR. A SHOULD BE ZERO 
— 1 EOU. 0025 A EOU. 0000 
RESET THEN SI, SEE EACH INST. 
PRESS START 
I CNTR. OK FROM 0000 TO /0025 

* BSC Z SKIPS ONLY WHEN ACC = 0000 

* SPA 1 OK FOR ONE BIT IN ANY POSITION 
♦BtGIN TEST OF TRANSFERS OF B-D-A-M 

* AND A-U-A AND A-B 

IS SHOWN AFTER EACH CHANGE 

FOFO 



OFOF 



* THE 



CONTFNTS OF At 


LD 


KFOFO 


STO 


/FFFF 


LD 


/FFFF 


STO 


/OOOO 


LO 


/OOOO 


$RA 


4 


STO 


/FFFF 


LD 


/FFFF 


STO 


/OOOO 


LD 


/OOOO 



001630 

001640 

001650 

001660 

001670 

001680 

001690 

001700 

001710 

001720 

001730 

001740 

001750 

001760 

001770 

001780 

001790 

001800 

001810 

001820 

001830 

001640 

001850 

001860 

001870 

001880 

001890 

001900 

001910 

001920 

001930 

001940 

001950 

001960 

001970 

001980 

001990 

002000 

002010 

002020 

002030 

002040 

002050 

002060 

002070 

002080 

002090 

002100 

002110 

002120 

002130 

002140 

002150 

002160 

002170 

002180 

002190 

002200 

002210 

Q02220 

002230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 



PROG ID 
PAGE 



007F 3003 



0030 


C 


FOOD 


0031 





OOOD 


0032 





3003 


0033 





FOOB 


0034 





4820 


0035 





30F3 


0036 





F009 


003/ 





4820 


0038 





30F3 


0039 





F004 


003A 





F0C4 


003B 





3003 


003C 





70F1 



WAIT /0OO3 — I EOU. 0030 A EOU. OFOF 
» IF ERHOR, LOAD I CTR. /O075, THEN SI AND 

•SEE THAT REGS. AS SHOWN FOR E.ACH INSTRUCTION. 
* QUAD CARDS GATE A2 ROWS 4,S 

» IBM CARDS GATE A2 ROWS 6,7 

0-1 2-3 4-5 6-7 8-9 10-11 12-13 14-15 



BIT POS. -- 
CARD COL.— 



IF OK 



E F G 
PRESS START- 



» TEST FOR 
EOR 



STO 

WAIT 

EOR 

BSC 

WA IT 

EOR 

BSC 

WAIT 

EOR 

EOR 

WAIT 

HDX 



KFOFO 

KFFFF 

/0003 

KFfFF 

Z 

-1 3 

KOOOO 

z 

-13 

KFOFO 
/FFFF 



FFFF 



SET ACC TO 
STORE IT 
— I EOU. 0033 A EOU. FFFF 
CLEAR ACC TO OOOO 
SHOULO SKIP 
♦»FRR. ACC SHOULO BE OOOO 
ACC SHOULO STAY OOOO 
SHOULD SKIP 
**F_RR. ACC SHOULD 8F OOOO 
ACC SHOULO GO TO FOFO 
ACC SHOULO BE FFFF 
LOC. /FFFF SHOULD BE OFOF 
/0003 — I EOU. 003C A EQU. FFFF 
IF ERROR PUT IN SI MODE ANO START 
/002E 

* OK .TEST ON THIS CARO COMPLETE. 

* NO ERRORS ON THIS TEST SHOW ALL BITS TRANSFER 

* CORRECTLY FROM CQRE-B-D-A-H ANO A-U- A-0-B-CORF . 

* THAT EOR WORKS RIGHT. THAT BSC Z WORKS RIGHT. 

* THAT ACC. WILL SHIFT A ONE BIT RIGHT FROM ANY 

* POSITION. THAT LO, STO, EOR, BSC Z, SRA 1, WAIT 

» INSTRUCTIONS OK. I CNTR. STEPS FROM /OOOO T0/003C 



003D 





8000 


K8000 


DC 


/8000 


003E 





FOFO 


KFOFO 


DC 


/FOFO 


003F 





FFFF 


KFFFF 


DC 


/FFFF 


0040 





OOOO 


KOOOO 


DC 


/OOOO 


0041 




OOOO 




BSS 


/O 


004F 





2000 




OC 


/2000 


004F 





0040 




DC 


/0040 


0050 




OOOO 




ENO 






HEXIDECIMAL NUMBER 
HEX1DECIMAL NUMBER 



007310 
002320 
002330 
002340 
002350 
002360 
002370 
002380 
002390 
002400 
002410 
002470 
002430 
002440 
002450 
007460 
002470 
002480 
002490 
002500 
002510 
002520 
002530 
002540 
002550 
007560 

0025 70 
002580 
002590 
002600 
002610 
002620 

0026 30 
00 2640 
002650 
002660 
002670 
002680 
002690 



03A5-1 

4 



OATE 
EC NO. 



01MAY66 
415490B 
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CROSS REFERENCE LISTING 



SYMBOL 


VALUE 


REFERENCES 


KFFFF 


O03F 


0031.0033 


KFOFO 


00 3F 


0025,0030.0039 


KOOOO 


0040 


0036 


K8000 


0030 


0000 













ABS 








002720 








* 


TEST LONG 


FORMAT 


OF LD A STO LDX FOR. 


002728 








* 


THFtl- 








002729 








• 


T6ST ADO 


OF 


POSITI 


VE AND NEGATIVE ONES. 


002730 








• 


A COMPREHENSIVE TEST OF ADD IS PERFORMED ON 


002740 








* 


EACH PASS. 


A PASS 


TAKES ABOUT 4 SECONDS. 


002750 








* 


VERIFY CORRECT LOPPING BY SINGLE INSTRUCTION. 


002760 








• 


PROGRAM 1 


FORMS CONTINUOUS LOOP. 


002770 








• 


TO 


EXIT- 


PRESS RESET ♦ PROGRAM LOAD. 


002780 


028C 










ORG 




/OOOO 




002790 


0000 





C013 






LO 




K4000 


MAKE LONG FORM INSTRUCTIONS 


002791 


0001 





1804 






S«A 




4 




002792 


0002 





0012 






STO 




K0400 




002793 


0003 





P012 






ton 




LO 




002794 


0004 





0011 






STO 




LO 




002795 


ooos 





COOF 






LO 




K0400 




002796 


0006 





*012 






EOR 




FOR 




002797 


0007 





0011 






STO 




FOR 




002798 


0008 





COOC 






ID 




K0400 




002799 


0009 





FOll 






FOR 




STO 




002800 


OOOA 





0010 






STO 




STO 




002801 


OOOH 





C009 






LD 




K0400 




002802 


oooc 





F0I1 






FOR 




A 




002803 


0000 





0010 






STO 




A 




007804 


OOOE 





C006 






LO 




KO4O04 


1 


002805 


OOOF 


o 


*00I 






EOR 




LOX- 




002806 


0010 





0000 






STO 




LOX 




002B07 


0011 


00 


64000016 


lox 


LOX 


L 


LO 


BRANCH TO TEST LONG FORM. 


002808 


0013 





30F4 






MA IT 




-12 


*»ERR. LDX FAILED 


002809 


0014 





4000 


K4000 


DC 




/4000 




002810 


0015 





0400 


K0400 


OC 




/0400 




002812 


0016 


00 C 0000 51 


LO 


LD 


L 


KFOFO 


BEGIN LONG FORM TEST 


002813 


0018 





1804 






SRA 




4 




002814 


0019 


00 


F4000031 


EOR 


COR 


L 


KFOFO 




002815 


0018 


00 


D400002F 


STO 


STO 


L 


KFFFF 




002816 


001D 





3004 






WAIT 




/0004 


-- SEE ACC. EOO. FFFF 


002840 


OOIF 


00 


44000030 


A 




A 


L 


K0C01 




002841 


002O 





0000 






STO 




SUMPL 


CLEAR SUM PLUS LOCATION 


002860 


0021 





000 B 






STO 




SUMNI 


CLEAR SUM MINUS LOCATION 


002870 


0022 





3004 






MA IT 




/r004 


— SEE ACC. EOU. OOOO 


002880 


0023 





C009 


BEGIN 


LO 




SUMMI 


LOAD SUM OF MINUS ONES 


002890 


0024 





S0OA 






A 




KFFFF 


AOO MINUS ONE TO IT 


002900 


0025 





r»oo7 






STO 




SUMMI 


STORE SUM OF MINUS ONES 


002910 


0026 





C007 






LD 




SUMPf 


LOAD SUM OF PLUS ONES 


002920 


0027 





8008 






A 




KOOOl 


ADD PLUS ONE TO IT 


002930 


0028 





D005 






STO 




SUMPL 


STORF SUM OF PLUS ONES 


002940 


0029 





8003 






A 




SUMMI 


ADD SUMMI TO SUMPL 


002950 


002A 





4820 






BSC 




I 


SHOULD ALWAYS SKIP 


002960 


0028 





30*4 






MA1T 




-.12 


»*ERR. ACC NOT ZERO 


002970 


002C 





70*6 






MOX 




BEGIN 




002980 


0020 





OOOO 


SUMMI 


DC 




/OOOO 




002990 


00? E 





0000 


SUMPL 


OC 




/OOOO 




003000 


002F 





0000 


KFFFF 


DC 




/OOOO 




003010 


0030 





0001 


KOOOl 


OC 




/0001 




003020 


0031 





FOFO 


KFOFO 


DC 




/FOFO 




003030 


0032 




00 1C 






BSS 




/1C 




003040 


004E 





2000 






OC 




/2000 


HEX1DECIMAL NUMBER 


003050 


004F 





0020 






OC 




70020 


HEXIDECIMAL NUMBER 4 


003060 


0050 




0000 






END 









003070 
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IBM CA1NTENANCC DIAGNOSTIC PROGRAM FOR THE 1130 SYSTFM 



ONf-CAOD DIAGNOSTIC PROGRAMS 
CARD 04 



CROSS RfFF<<FNCF LISTING 

SYMBOL VAIUF RFFfRENCES 

A 00 IF OOOC ,0000 

BEGIN 0023 00?C 

EOR 001" 0006,0007 

KFFFF OO'F 001B,0024 

KFOFO O031 0016,0019 

K0001 0010 001F.0077 

K0400 001S 000?, 0005, 0008, OOOR.OOOF 

K4000 0014 0000 

10 OOlh 0003,0004,0011 

LDX 0011 O00F.0O10 

sto ooi 8 aroo.oooA 

SUMMI 002D 0071,0073,0025,0029 

su^pl oo^^ oo?o,oo?6, 0028 
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IRH WMNTFNANCf DIAGNOSTIC PROGRAM FOR THF 1130 SYSTEM 



CNf-CARO DIAGNOSTIC PROGRAMS 
CARC OS 



02BC 



0000 

0001 
000? 

0003 

0004 

0005 

0006 

0007 

0008 

0009 
OOOA 
OOOH O 
OOOC 
0000 
OOOF 
000 F 

0010 00 

0012 

0013 

0014 

001 5 
0016 
0017 
0018 
0019 
001A 
001 B 
001C 
0010 
001 E O 
001F 
0070 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0026 
0029 
002 A 
0023 
002C 
0070 

002 E 
002F 

0030 

0031 00 

0033 
0034 
00*5 
0036 

003 7 
0033 
0O39 

0034 












o 



C0?2 
lt»0? 
F02F 
OOOC 
002C 

coio 

180? 

F035 

0334 

C01A 

1304 

F005 

PQQ4 

COIR 

D0F1 

C038 

TJ40000FF 

C015 

aooo 

0013 
COFD 

aooA 

OOFB 

FOOF 

4820 

70F7 

C30C 

4820 

30 F 5 

700 B 

OOOC 

OOOC 

3001 

5000 

1000 

FOOO 

40FF 

703A 

80JC 

OOFt 

2030 

C0F7 

1808 

0005 

0010 

1810 

0OF9 

C0F4 

D4000050 

COFE 

SOEC 

OOFC 

FOOA 

4820 

70F7 

7016 

30F? 



A3S 

ORG 

TEST THAT L'lCS. C050 THRU FFF CAN BF ADDRESSED 
PROGRAM SHOULD STOP AT tOC. OFFF WITH 8 300A 
PRF.SS PFSFT AND START. PRO-AM THEN SHOULD STOP 
AT IOC. 004A WITH 3 30CA AND ACC. OFAF WHICH 
IS THf NUMBER OF LOCATIONS Tt-STFD. PROGRAM 
CAN BE RF-RUN 9Y PRESSING START. 



M001 LO 
SRA 
tOR 
STO 
STO 
LO 
SRA 
EOR 
STO 
LD 
SRA 
EOR 
STO 
LO 
STO 
10 

STWT STO 
ID 

MO 03 A 

STO 

LD 

A 

STO 

EOR 

8SC 

MOX 

LO 

BSC 

WAIT 

MOX 

nc 

DC 
K0001 DC 
KSGIN DC 
K1000 DC 
KFOCO DC- 
KBSl BSI 



C0N1 
C0N3 
SUMC 
SUML 
RSTR 



STLN 



MOX 

A 

DC 

DC 

10 

SRA 

STO 

STO 

SRA 

STO 

ID 

STO 

LO 

A 

STO 

EOR 

BSC 

MOX 

MOX 

WAIT 



HI 000 

2 

STLN 

STWT 

STLN 

K1000 

2 

CHCK 

CHCK 

KFOOO 

4 

STWT*1 

STWT+1 

C0N1 

M001 

KWA1T 

/OOFF 

SUMC 

MD03*l 

SUMC 

M0D3 

KC001 

MOD? 

C0N3 

z 

HOD 3-1 
SUMC 
2 

-11 
RSTR 
/OODC 
/OOOC 
/0001 
/5000 
/1000 
/FOOO 
-t 

CHECK-MODI -1 
BGIN-M0D3 
/OOFC 
72030 
KBG1N 

8 

SUN*1 

CHCK+1 

16 

SUMI 

KB SI 

/0050 

$UN*1 

K0001 

STLN*1 

STMT+1 

I 

STLN-1 

/005*0 

-11 



PROGRAM REPLACES THIS 



MAKE UP LONG INSTRUCTIONS 



MODIFY LOCATION 0000 
PUT WAIT INTO /OFFF 
FORM CHECK SUM 



SHOULD SKIP 
»*ERR. SUM SHOULD 3E 0000 

USED TO MAKE CHE,CK SUM 
USED TO MAKE CHECK SUM 



LOAD ACC. TO 5000 
SHIFT TO /0050 
RESTORE 
RESTORE 
ACC = /OOOO 
RF STORE 
PUT BSI-1 INTO CORE 



MODIFY. STORE ADDRESS 



SKIP WHEN LDC. OFFE STORED 



O038 
003C 



COO? 
80F4 



RUN SERIFS OF BSI-1 STORED 
**6RR. ADDRESS PLUS ONE 
* DOESNOT FQUAL AORFSS OF LOCATION TESTFD. 
CHECK LD CHCK+1 LOAD THE ADDRESS BEING 

A K0001 TESTFD AND ADO ONE. 
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003100 

0031 10 

003120 

00 3 MO 

00 3140 

003150 

00 3160 

003170 

003180 

003190 

OC3200 

003210 

0032 20 

003230 

003740 

003250 

00 3260 

0032 70 

00 3280 

003290 

003300 

003310 

003320 

003330 

003340 

003350 

003360 

003370 

003380 

003390 

003400 

003410 

003420 

003430 

003440 

003450 

003460 

003O70 

003480 

003481 

003*90 

003500 

003510 

003520 

003530 

003540 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

003630 

003640 

003650 

003660 

003670 

003680 

003690 

003700 

003710 

003720 

003730 

003740 

003750 

003760 
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ONF-CAPD DIAGNOSTIC PROGRAMS 
CARD 05 



ONE -CARD DIAGNOSTIC PROGRAMS 
CAop 05 



0030 


00 


f 4000050 


CHCK 


FOR I 


/0050 


003F 





4*20 




esc 


2 


0040 





70F9 




MOX 


CHECK -1 


0M1 





C0F7 




10 


SUML 


0042 





800E 




A 


K0001 


0043 





0OE5 




STO 


SUML 


0044 





C0F9 




LD 


CHCK ♦ 1 


0045 





8009 




A 


K0001 


004b 





OOF 7 




STO 


CHCK* I 


004 7 





FQC9 




FOR 


STWT*1 


004 fl 





4820 




BSC 


7 


0049 





70M 




MOX 


CHCK-2 


004 A 





COOE 




to 


SUML 


004B 





3005 


kwait 


WAIT 


/0005 


004C 





7000 




MOX 


RSTR 


0040 





08FF 




DC 


/08FF 


004E 





2000 




DC 


/2000 


004 F 





0010 


BGIN 


OC 


/no io 


0050 




0000 




EN© 






compare u|th contents, 
should be zero and skip 
error, stop ♦ sing. inst. 

form sum of = locs. tested 

modify to test next ioc. 



CHECK IF ALt TESTEO 
SKIP, All L8CS. TESTEO 
GO CHECK NEXT LOCATION 
LOAD SUM OF NUMBER TESTEO. 
-ACC. EOU. OFAF IS NUMBER 
TESTED. 
USED TO MAKE CHECK SUM 
HEXIfiEClMAL NUMBfR 
HEXIOECIMAL NUMBER 5 



003770 
003780 
0P3790 
003800 
003810 
003820 
003830 
003840 
003850 
003860 
003870 
003880 
003890 
003900 
003910 
003920 
003940 
003950 
003960 



CROSS REFERENCF LISTING 



SYMBOL 


VALUE 


BGIN 


004F 


CHCK 


00 3D 


CHECK 


00 3B 


C0N1 


0026 


C0N3 


0027 


KBGIN 


0022 


KBSI 


0025 


KFOOO 


0024 


KWAIT 


004B 


K0001 


0021 


Kioon 


0023 


MOOl 


0000 


M0D3 


0013 


RSTR 


002 A 


STLN 


0031 


STWT 


0010 


SUMC 


0028 


SUML 


0029 



REFERENCES 

0027 

0007,0008,0020,0036,0044,0046,0049 

0026,0040 

0000 

0018 

002* 

0030 

0009 

OOOF 

0016, 0034, 00 3C, 0042* 0045 

0000,0005 

OOOF ,0026 

001 i, 0015, 0017, 001 A, 0027 

001E.004C 

0002, 0004, 002C, 0033, 0035, 0038 

0003,0000, 0000*0036,0047 

0012,0014,0018 

002F , 004 1 , 004.3,004* 



OATE 
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191 MlIfJTCNAKCE DIAGNOSTIC PROGR** FOR THE 1130 SYSTEM 



ONF-CARO DIAGNOSTIC PROGRAMS 

CARD 06. 



PART 
PAGF 



r.n. 



?191260 
SA 



0?9C 



0000 





r.024 


0001 





1904 


0002 





FQ74 


000? 





nn21 


0004 





0022 


0005 


3 


C023 


0006 





1901 


0007 





F034 


onofl 





D033 


0009 





C014 


000 A 





1808 


0004 





T031 


oooc 


o 


00 30 


000D 


a 


701* 


OQOF 





0000 


OOOf 


n 


0000 


ooi a 





0000 


0011 





0000 


0012 





0000 


0013 





0000 


0014 





0000 


001 5 





0000 


0016 





0000 


0017 





0000 


0018 





0000 


0019 





3000 


001A 





3000 


001B 





0000 


OOIC 





0000 


001D 





7O0F 


001 F 





9*00 


001F 





0800 


0020 


n 


8003 


00?1 





8000 


0022 





0001 


0023 





1000 


002* 





nooo 


002% 





A000 


00? 6 





0028 


0027 





3000 


002 9 





0004 


0029 





2808 


002 A 





0000 


0026 





F0F3 


002C 





30F6 


0020 





3006 


OOtE 





0*FT 


002 F 





CO* 8 


0030 





fOFF 


0031 





48?0 


0032 





700F 


0033 





09FO 


0034 





COEF 


0035 





FOFC 


0036 





ootp 


0037 





4.820 


0038 





70F4 


0039 





C0C6 


003A 





,1.808-. 


003B 





F0C5 


003C 





C004 


0030 





OOFS 


OATE 




01MAY66 


EC MC 


!. 


415490B 



ABS 
ORG 

* TEST OF LC 
» USING BIT 

* THIS PROG. 

* EXCEPT FOR 
START LD 

SRA 

FOR 

STO 

STO 

10 

SRA 

EOR 

STO 

ID 

SRA 

EOR 

STO 

MDX 

DC 

DC 

oc 

DC 

OC 

DC 

DC 

OC 

DC 

OC 

DC 

DC 

DC 

OC 

DC 
ENOCK MDX 
CHKSM DC 
HO 800 OC 
K8003 OC 
KBOOO OC 
KOOOl DC 

OC 
RDIN OC 

DC 
RDSW DC 

DC 
SENSE OC 

DC 
COUNT DC 
ERROR EOR 

WAIT 
SRTRD WAIT 

XIO 

if) 

FOR 

BSC 

MOX 

XIO 

ID 

EOR 

STO 

BSC 

MOX 

to 

SRA 
: FOR 

OC 
OC 



AOER CARD 1 FUNCTIONS 

SWITCHES FOR DSW ♦ FOR COLUMN DATA 

IS IDENTICAL TO CARD 1 FROM 10 TO 4C 

XIO COMMANDS. 



STORE 



RD1N+I 

4 

RDSW*1 

RD1N+1 

RDSW+1 

SENSE + 1 

1 

STORE 

STORE 

CHKSM 

8 

ST0RE*1 

ST0RE*1 

SRTRD 























SRTRD 

/BROO 

/0800 

/8003 

/8000 

/0001 

/OOOO 

/OOOO 

/AOOO 

SENSF 

/3000 

/0004 

/2808 

/OOOO 

K0800 

-10 

/6 

RDSW 

SENSE 

K8003 

Z 

CONU 

RDIN 

R01N 

KOOOl 

RDIN 

I 

SRTRD 

START 

8 

START*l 

/C004 

/OOF 5 



SET UP I/O CONT. COMMANDS 



MAKE UP STORE LONG 



MAKE UP ADOR. FOR STO LONG 



RO SMS. INTO LOCS. OR 1 
/3A00 SET BY PROGRAM 
RO SMS. INTO LOC. SENSE 
/3A00 SET BY PROGRAM 
SENSE DSW CONTROL COMMAND 



RESTORE ACC. TO OSM 
**ERR. STOP PSM NOT RIGHT 
TO LOOP, REPLACE WAIT 
READ SWITCHES INTO SENSE 
LOAD BIT SMS. INTO ACC. 
CHECK BITS Ot 14*15 ONLY 
SKIP IF BITS O, 14*15 ONLY 
CONTINUE DSM ANALYSIS 
RFAD BIT SWITCHES INTO 0,1 

SWITCH READ IN AREA, EVEN 

'-" TIMES IN ODD IN 1 
.SKIP 2 WORDS READ 

GET FIRST WORD 
SHIFT IT 

EOR WITH SECOND MORD 
STORE LONG AT 40 
SET UP BY PROG. 



003990 
004000 
004010 
004020 
004030 
004040 
004050 
004060 
004070 
004080 
004090 
004100 
004110 
004120 
0C4130 
004140 
004150 
004160 
004170 
004 1 80 
004190 
0C4200 
004210 
004220 
004230 
004240 
004250 
004260 
004270 
0042 SO 
004290 
004300 
0043 10 
004320 
004330 
004340 
004350 
004360 
004370 
004380 
004390 
004400 
004410 
004420 
004430 
004440 
004450 
004460 
004470 
004480 
004490 
004500 
004510 
004520 
004530 
004540 
004550 
004560 
004570 
004580 
004596 
004600 
004610 
004620 
004630 
004640 
0C4650 
004660 



PPOG ID 
PAGE 



OOJF 


o 


COFF 


001F 





SOP? 


004 





OOFC 


0041 





Tofp 


004? 





FODF 


004? 





48?0 


0044 





7001 


00*5 





7067 


0046 





C0F1 


004 7 





F007 


004 8 





4920 


0049 





70F1 


004A 





CODF 


0048 





B006 


004C 





TOEO 


004 





QOOO 


004E 





2000 


004F 





0008 


0050 




OOOO 



CONT 1 



C0NT2 



LO 
A 

STO 
MOX 

EOR 

BSC 

mDx 

MOX 

10 

EOR 

BSC 

MDX 

LD 

A 

MDX 

DC 

DC 

DC 

FND 



ST0RF*1 

KOOOl+l 

STORF+1 

SRTRD 

K9000 

I 

CONT? 

SRTRD 

SENSE 

KOftOO 

2 

ERROR 

COUNT 

KOOOl 

SRTRD 



/2000 

/0008 





DUMMY MODIFY OF STO L 



CHECK FOR BITS 14+1% ONLY 
SKIP BUSY AND NOT RE.ADY 



BIT SWS. LOADED TO ACC. 
CHFCK FOR BIT 4 ONLY 
SKIP END OF CARD 

COUNT PASSES 



HFXIDECIMAL NUMBER 
HEXIDFCIMAL NUMBER 6 



004670 
004680 
004690 
004700 
004710 
004720 
004730 
004740 
004750 
004 760 
004770 
0047 RO 
004790 
004800 
004810 
0048 20 
0048 30 
004840 
004850 
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ONE-CARD OlAGNOSTIC PROGRAMS 
CARD 06 



IBM MAINTENANCF DIAGNOSTIC PROGRAM FOR THE 1130 SYSTEM 



ONE-CARD DIAGNOSTIC PROGRAMS 
CARD OT 



"ART MO. ? | 91260 
PAGE 9A 



CROSS RFFERENCF LISTING 



SYMBOL 

Chksm 

C0NT1 
CONT? 
COUNT 
ENDCK 
ERROR 
KOOOI 

Koaoo 

K8000 

K8003 

RDIN 

RDSW 

SENSF 

SRTRO 

START 

STORE 



VALUE 

001E 

0042 

0046 
00?A 
0010 
0025 
0022 
001 F 
0021 
0020 
00* 4 
0026 
0028 
00? D 
0000 
003C 



REFERENCES 

0009 

0032 

0044 

004A 

0049 

003S,003F,004B 

0028,0047 

0042 

0030 

0000,0003,0033,0034,0036 

0002,0004, 002 E 

000% 0026, 00 2F, 0046 

0000, 001 0,0038, 004 1, 0045, 004C 

00 39, 00 3B 

000 7, 0008, 0006, O0OC003E, 0040 



02BC 



DATE 
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oooo o 


cni7 


0001 


1804 


0002 


0016 


0003 


D016 


0004 


can 


ooos o 


8814 


0006 


3007 


0007 


coip 


000« 


1802 


0009 


D01B 


OOOA 


C018 


000f> 


1801 


OOOC 


0016 


OOOD 


COIB 


OOOE 


1803 


OOOF 


0019 


0010 


F016 


oou o 


0015 


0012 


70OA 


0013 


OOPO 


0014 


0000 


0015 


0000 


0016 


0000 


0017 


0000 


0018 


FOFO 


0019 


OFOF 


OOIA 


OFOF 


001B 


FOFO 


001C 


0000 


0010 o 


7 OOF 


001 E 


0900 


001F 


•003 


0020 


•000 


0021 


0000 


0022 


•001 


0023 


2808 


0024 


0000 


0025 


4800 


00?6 


0000 


0027 


0003 


0028 


0004 


0029 


8800 


002A 


0000 


002B 


F0F2 


002C 


7000 


002D 


08F4 


002 F 


08F7 


002F 


•8F8 


0030 


FOEf. 


0031 


4820 


0032 


700 F 


0033 


ORFO 


0034 


COfF 


0035 . 


FOFC 


0036 


OOED 


0037 


4820 


0038 


7002 


0039 


C0C7 


003A 


7006 


003B 


C0C4 


003C 


7004 


DATE 


01MAY66 


EC NO. 


4154909 



ABS 
ORG 

* TFST D0UF3 

* PROGRAM F 

* XIO Fj\CT 

* ON ERROR. 

LO 

SRA 

STO 

STO 

100 

AO 

WAIT 

• 

START LO 
SRA 
STO 
LD 
SRA 
STO 
LO 
SRA 
STO 
FM 

STO 
MOX 

CC 
DC 
OC 

oc 

DC 
KFOFO OC 
DC 
OC 
OC 

OC 
ENDCK MOX 
IC0800 DC 
X8003 OC 
KROOO OC 

OC 
KOOOI OC 

OC 
ROIN DC 

OC 
RESET OC 

DC 
SFNSE DC 

DC 

DC 
ERROR FOR 

MOX 
SRTRO XIO 

XIO 

XIO 

FOR 

BSC 

MDX 

XIO 

LD 

FOR 

STO 

BSC 

MDX 

10 

MOX 

LO 

MOX 



LE PRECISION LOAD ANO AOO ANO 

DR SCOPF LOOPS ON READ CARD 

IONS A*E IOENTICAL TO CARDl BUT NO STOP 



HDP 



KFOFO 

4 

KFOFO+l 

KFOFO* 2 

KFOFO 

K* OFO+2 

/C007 

ROIN+l 

2 

RDIN+l 

K0001+1 

1 

KOOOI *l 

SENSE+1 

3 

SENSE+1 

RESET+1 

RESET*1 

FNOCK 











/FOFO 

/OFOF 

/OFOF 

/FOFO 



SRTKD 

/0800 

/8003 

/8000 



/0001 

/2808 

/OOOO 

/4800 



/0003 

/000> 

/B800 



K0800 

• 

KOOOI 
RESET 
SENSE 

K8003 

z 

C0NT1 

RDIN 

ROIN 

KOOOI 

RDIN 

Z 

HOP 

/0001 

JUMP 

/OOOO 

JUMP 



SET UP CONSTANT /OFOF 



TEST LOAD DOUBLE 
TEST AOO DOUBLE 
-SEE ACC. FFFF Q FFFF IF OK 
CONT. IF NOT RESET ANO SI. 
CORRECT 1/0 CONT. COMM. 

SHIFT IT 

STORE IT 
CORRFCT I/O CUNT. COMM. 

SHIFT IT 

STORE IT 
CORRECT I/O CONT. COMM. 

SHIFT IT 

STORE IT 



PUT IN BY PROGRAM 



START RO, USED AS CONSTANT 

/1 404 SET BY PROG. 

READ IN LOCATIONS AND 1 

/1200 SET »Y PROG. 

RESET DSW CONTROL COMMAND 

/1703 SET BY PROG. 

SENSE OSW CONTROL COMMAND 

/1700 SET BY PROG. 

RESTORE ACC. TO DSW 

PUT WAIT HERE FOR ERR. STnP 

START REAO 

RESET OSW 

SENSE DSW FOR CRP 

CHECK filTS 0,14+15 ONLY 

SKIP IF BITS 0,14+15 ONLY 

RO COL. 



SKIP, OOD COL. JUST READ 
LOAD OOD COL. JUST REAO 
LOAD EVEN COL. JUST REAO 



004PB0 

004890 

004P91 

004900 

0049 10 

0049 20 

004921 

004922 

004923 

004924 

004925 

0049 26 

004927 

004928 

004930 

004940 

004950 

004960 

004970 

004980 

004990 

005000 

005010 

00 5020 

005030 

005040 

005060 

005070 

005080 

005090 

005100 

005110 

005120 

005200 

005210 

005215 

005220 

0052 30 

005240 

005250 

005260 

005270 

005280 

005290 

005300 

005310 

005320 

005330 

005340 

005350 

005360 

005370 

005380 

005390 

005400 

005410 

005420 

005430 

005440 

0054 50 

005460 

0054 70 

005480 

005490 

005500 

005510 

005520 

005530 



PROG 10 
PAGE 



03A5-1 
9A 
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PARAGRAPH pAGE 

1. PURPOSE 1 

2. PREREQUISITES _ ! 

2.1 PROGRAM PREREQUISITES 

2.2 EQUIPMENT PREREQUISITES 

3. USE PROCEDURE 1A 

3.1 NORMAL L0ADIN6 PROCEDURE 

3.2 DIAGNOSTIC LOADING PROCEDURE 

3.3 DIAGNOSTIC GUIDE 

3.4 PROGRAM HALTS 

4. PRINTOUTS (NONE) 

5. COMMENTS ..... 2 

5.1 BASIC-LOADER FIRST-CARD FUNCTIONS 

5.2 FUNCTIONS OF BASIC-LOADER CARDS (TWO THRU FIVE) 

6. APPENDIX 

6.1 PUNCHED-CARD 8-8 FORMAT 



1. PURPOSE 

TO LOAD PROGRAM DECKS PUNCHED IN THE FORMAT SUCH AS THE CPU AND CORE TESTS. 
THE LOADER IS CONSTRUCTED TO USE A MINIMAL INSTRUCTION SET, AND PROVIDE 

2. PREREQUISITES 

2.1 PROGRAM PREREQUISITES 

THE BASIC LOADER WILL ONLY LOAD PROGRAM DECKS WHICH ARE PUNCHED 
IN THE 8-8 FORMAT DESCRIBED IN SECTION 6.1. 



2.2 EQUIPMENT PREREQUISITES 

A. 1131 CENTRAL PROCESSING UNIT <CPU). 

B. 2501 CARD READER WITH IPL. 



3. USE PROCEDURE 

3.1 NORMAL LOADING PROCEDURE 
A. AT 2501 CARD READER, 



3.2 



3.3 



1. DEPRESS NPRO PUSHBUTTON TO CLEAR FEED. 

2. PLACE BASIC LOADER DECK, FOLLOWED BY MAIN PROGRAM AND TWO 
BLANK CARDS IN HOPPER. 

3. DEPRESS START PUSHBUTTON. READY INDICATOR SHOULD LIGHT. 



B. AT 1131 CPU, 



MAIN PROGRAM SHOULD LOAD AND BEGIN 



1. PUSH RESET. 

2. PUSH PROGRAM LOAD. 
EXECUTION. 

3. IF PROGRAM FAILS TO LOAD OR HALTS AT A WAIT INSTRUCTION BtLOW 
LOCATION 012C, REFER TO SECTION 3.2 

DIAGNOSTIC LOADING PROCEDURE 



1. 
2. 



SET INTERRUPT DELAY SWITCH (ON CE PANEL) TO ON POSITION. 
RETRY LOAOING PROCEDURE. 

IF PROGRAM LOADS, RUN CPU AND INTERRUPT TESTS TO DIAGNOSE NORMAL 
LOADER FAILURE. 

IF PROGRAM DOES NOT LOAD, REFER TO SECTION 3.3 

DIAGNOSTIC GUIDE 

NOTE 

ALL REGISTER-CONTENT INDICATIONS IN FOLLOWING STEPS ARE EXPRESSED IN 
HEXADECIMAL NOTATION. 



FAILURE DESCRIPTION 
1. NO CARD FEEDS 



SUGGESTED ACTION + POSSIBLE CAUSE OF FAILURE 

POSSIBLE FAILURE OF 

EITHER PROGRAM-LOAD MODE OR READER. 



2. 



3. 



4. 



5. 



FIRST CARD 

FEEDS BUT IS NOT POSSIBLE FAILURE OF READER. 

READ CORRECTLY. 



FIRST CARD IS 
READ CORRECTLY 
BUT NOT ABLE TO 
LOAD REMAINDER 
OF LOADER. 

MAIN PROGRAM 
STARTS EXECUTING 
BEFORE ALL CARDS 



POSSIBLE FAILURE OF CPU INSTRUCTIONS 
USED TO BOOTSTRAP LOADER. 



CHECK THAT LAST CARD OF PROGRAM, WHICH IS 

PUNCHED WITH FF IN COLUMNS 79 AND 80, 

IS NOT OUT OF SEQUENCE. IF CARD IS IN SEQUENCE, 



HAVE BEEN LOADED. A READING PROBLEM IS INDICATED. 



ALL CARDS FEED 
BUT MAIN PROGRAM 
DID NOT EXECUTE. 



SEE IF LAST CARD WENT PAST THE READ STATION 
OF THE 1442. IF IT DID, RUN ONE-CARD 
DIAGNOSTIC PROGRAMS. CHECK THAT MAIN PROGRAM 
IS FOLLOWED BY TWO BLANK CARDS. 
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3.4*** PROGRAM HALTS 



•HALT NO 
. (B REG) 


DESCRIPTION 


RESTART 
ACTION 


. 30F1 

. 30F5 

. 30F7 
. 30F8 . 
. 30FC . 


CHECK SUM ERROR ON FIRST 
CARD OF LOADER. EITHER THE 
CARD READ IN WRONG, OR THE 
VARIOUS WORDS WHICH ARE 
STORED BY THE FIRST CARD 
WERE NOT PROPERLY GENERATED. 

READER CHECK WHEN LOADING 
TEST PROGRAM 

CHECK SUM WHEN LOADING 
PROGRAM. CARD COLUMN 1-7B 
DID NOT HAVE ZERO CHECK SUM. . 
READER NOT READY BEFORE 
LOADING WAS COMPLETED. 

MOVE ERROR. MOVED DATA DID '. 
NOT COMPARE TO INPUT DATA. 


RELOAD \ 

NPRO THEN PLACE CARDS 
RUN OUT IN FRONT OF 
REMAINING DECK AND PRESS. 
START. 

RELOAD OR PRESS START ! 
TO RETRY THE SAME CARD. . 

MAKE READER READY, AND * 

CHECK IF LAST CARD IS 

PROPER. 

NPRO THEN PLACE CARDS 

RUN OUT IN FRONT OF RE- . 

MAINING DECK AND PRESS . 

START. 









4. PRINTOUTS (NONE) 

5. COMMENTS 



COMMENTS 



THE 2501 BASIC LOADER IS DESIGNED TO SUCCESSFULLY LOAD THE 8-8 FOR- 
MAT TESTS SUCH AS CPU AND CORE TESTS. THE LOADER USES A MINIMUM 
AMOUNT OF CIRCUITS. IT WILL RUN WITH OR WITHOUT INTERRUPT, USES 
NO INDEX REGISTERS, AND WILL LOOP ON EASILY SCOPED LOOPS FOR SOME 
ERRORS. THE CARD IMAGE IS PRESERVED IN CORE UNTIL IT HAS BEEN 
CHECK SUMMED, AND MOVED TO ITS PROPER LOCATIONS. THE CARD MAY BE 
DISPLAYED AND COMPARED MANUALLY TO VERIFY PROPER READING. EACH 
OPERATION, IE. CARD READ, CHECKSUM, MOVE AND CHECK ARE SELF CON- 
TAINED AND DO NOT OVERLAP, ALLOWING A FAILING OPERATION TO BE RE- 
PEATED. 

5.1 BASIC-LOADER FIRST-CARD FUNCTIONS 



5.1.1 



5.1.2 



AFTER BEING LOADED IN IPL MODE, THE FIRST-CARD PROGRAM DEVELOPS A 
CHECKSUM TO DETERMINE IF IT WAS LOADED CORRECTLY. IF THE CHECKSUM IS 
NOT 0000, THE PROGRAM STOPS AT A WAIT WITH THE DEVELOPED CHECKSUM 
DISPLAYED BY THE ACCUMULATOR. 

IF THE CHECKSUM IS CORRECT, THE FIRST-CARD PROGRAM PROCEEDS TO LOAD 
CARDS TWO THROUGH FIVE. TWO CARD COLUMNS WILL FORM ONE STORAGE WORD 
BECAUSE THESE CARDS ARE PUNCHED IN 8-8 MODE. THE DSW IS CHECKED, AND 
IF AN ERROR IS DETECTED, THE PROGRAM WILL STOP AT A WAIT WITH THE 
ERROR DSW DISPLAYED BY THE ACCUMULATOR. THE CONDITION CAUSING THE 
DSW ERROR MUST BE CORRECTED BEFORE ATTEMPTING TO RELOAD. 



5.1.3 

5.2 
5.2.1 

5.2.2 

5.2.3 
5.2.4 

5.2.5 
5.2.6 



AFTER LOADING CARDS TWO THROUGH FIVE, THE PROGRAM BRANCHES TO 
BEGINNING OF PROGRAM JUST LOADED. 

FUNCTIONS OF BASIC-LOADER CARDS TWO THROUGH FIVE 

CARDS TWO THROUGH FIVE LOAD A MAIN-PROGRAM CARD INTO LOCATIONS 0010 
TO 0036. THE DSW IS CHECKED AFTER READING A CARD, AND IF AN 
ERROR OCCURRED, THE PROGRAM STOPS AT A WAIT WITH THE DSW ERROR 
DISPLAYED BY THE ACCUMULATOR. 

CARDS TWO THROUGH FIVE ALSO DEVELOP CHECKSUM OF LOCATIONS 0010 
THROUGH 0036. IF CHECKSUM IS OTHER THAN 0000, PROGRAM STOPS AT ERROR 
WAIT WITH CHECKSUM DISPLAYED BY ACCUMULATOR. A CORRECT CHECKSUM 
MEANS CARD WAS READ CORRECTLY. 

THE WORD COUNT, (NUMBER OF WORDS ON THE CARD) IS TAKEN FROM 
LOCATION 0034. IF IT IS ZERO PROGRAM STOPS AT ERROR-WAIT. 



THE NUMBER OF WORDS SPECIFIED IN LOCATION 0034 IS RELOCATED, 
STARTING AT THE ADDRESS THAT WAS SPECIFIED IN CARD COLUMNS 75 AND 
AND THAT WAS READ INTO LOCATION 0035. 



76 



THE DATA READ AND THE DATA AT THE TRANSFERED LOCATION ARE COMPARED 
WORD BY WORD TO VERIFY THAT THE RELOCATION HAS BEEN DONE CORRECTLY. 
AN UNEQUAL COMPARISON RESULTS IN THE PROGRAM STOPPING AT AN ENOV-WAIT 
INDICATING AN RELOCATION ERROR. 

THE PROGRAM REPEATS THE STEPS DISCUSSED IN PARAGRAPHS 5.2.1 THROUGH 
5.2.5 FOR EACH CARD OF THE MAIN PROGRAM DECK, EXCEPT FOR THE LAST 
CARD, WHICH MUST HAVE A LOCATION ADDRESS OF 0000. AFTER READING THE 
CARD AND DEVELOPING THE CHECKSUM, THE PROGRAM BRANCHES TO LOCATION 
0010 AND STARTS EXECUTING THE MAIN LINE PROGRAM. 
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6. APPENDIX 

6.1 PUNCHED CARD 8-8 FORMAT 

THE ORGANIZATION OF THE PUNCHED CARD 8-8 FORMAT IS AS FOLLOWS. 

A. COLUMNS 1 THROUGH 72 CONTAIN HALF WORDS (8 BITS) PUNCHED 
INTO ROWS 12 THROUGH 5. WORD-BITS THROUGH 7 ARE PUNCHED 
INTO EVEN NUMBERED COLUMNS. WORD-BITS 8 THROUGH 15 ARE 
PUNCHED INTO ODD NUMBERED COLUMNS. 

B. COLUMNS 73 AND 74 CONTAIN A WORD-COUNT OF THE TOTAL NUMBER OF 
DATA WORDS PUNCHED INTO THE CARD. 

C. COLUMNS 75 AND 76 CONTAIN THE LOCATION, IN CORE WHERE THE 
DATA ON THE CARD ARE TO BE LOADED. 

D. COLUMNS 77 AND 78 CONTAIN A CHECKSUN (TWO'S COMPLEMENT OF THE 
SUM OF ALL WORDS IN COLUMNS 1 THROUGH 76). 

E. COLUMNS 79 AND 80 CONTAIN THE CARD'S SEQUENCE NUMBER PUNCHED 
IN HOLLERITH/HEXADECIMAL FORMAT. 
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ABS 










3AD00020 


0000 








ORG 











3AD00030 








* 




BOOTSTRAP 


CARD #1 


3AD00040 
3AD00050 


























* 




LOADED 


BY 


IPL. 


THESE INSTRUCTIONS 


3AD00060 








* 




BUILD LONG 


1 FORM 


INSTRUCTIONS 


3AD00070 








* 




NECESSARY 


TO LOAD THE REST OF 


3AD00080 








* 




THE LOADER 






3AD00090 
3AD00100 




















0000 





C037 


START 


LD 


PACKS1 




8800 




3AD00U0 


0001 





1801 




SRA 


1 




4400 




3AD00120 


0002 





F034 




EOR 


PACK 




C400 




3AD00130 


0003 





D033 




STO 


PACK 




C400 


LD L 


3AD00140 


0004 





F037 




EOR 


STO 




D400 




3AD00150 


0005 





D036 




STO 


STO 




D400 


STO L 


3AD00160 


0006 





F033 




EOR 


EOR 




F400 




3A000170 


0007 





D032 




STO 


EOR 




F400 


EOR L 


3AD00180 


0008 





1804 




SRA 


4 




0F40 




3AD00190 


0009 





F021 




EOR 


K4001 




4F41 




3AD00200 


OOOA 





D022 




STO 


RESET 




4F41 


RESET IOCC 


3AD00210 


OOOB 





7001 




MDX 


*£1 




4F41 




3AD00220 


OOOC 





0031 




DC 


INT 








3AD00230 


OOOD 





1808 




SRA 


8 




004F 




3AD00240 


OOOE 





D01B 




STO 


STRD 




004F 


START DR ADDRS 


3AD00250 


OOOF 





8020 




A 


ONE 




0050 




3AD00260 


0010 





D02A 




STO 


E0R61 




0050 


1ST HALF WD ADDRS 


3AD00270 


0011 





D02B 




STO 


ST061 




0050 


1ST STORE ADDRS 


3AD00280 


0012 





801D 




A 


ONE 




0051 




3AD00290 


0013 





D024 




STO 


PACK61 




0051 


2ND HALF WD ADDRS 


3AD00300 


0014 





8017 




A 


LAST 




0078 




3AD00310 


0015 





D016 




STO 


LAST 




0078 


END STORE ADDRS 


3AD00320 


0016 





C014 




LD 


K4001 




4001 




3AD00330 


0017 





1806 




SRA 


6 




0100 




3AD00340 


0018 





F014 




EOR 


RESET 




4E01 




3AD00350 


0019 





D011 




STO 


STRD&l 




4E01 


START RD I/CC 


3AD00360 


001A 





1808 




SRA 


8 




004E 




3AD00370 


001B 





D033 


* 


STO 


WC 




004E 


WORD COUNT 


3AD00380 
3AD00390 


001C 





C011 


STRT 


LD 


CHKSM 




FORM 


CHECK SUM, THIS CARD 


3AD00400 


001D 





8006 




A 


*66 




FROM 


0024 THRU 004F 


3AD00410 


001E 





DOOF 




STO 


CHKSM 








3AD00420 


001F 





COFD 




LD 


STRT61 








3AD00430 


0020 





800F 




A 


ONE 




MODIFY ADD INST 


3AD00440 


0021 





DOFB 




STO 


STRTE1 








3AD00450 


0022 





FOOC 




EOR 


C0N1 




CHECK 


THAT LAST LOC CHKD 


3AD00460 


0023 





4820 




BSC 


Z 




SKIP 


IF FINISHED 


3AD00470 


0024 





60 1C 




LDX 


STRT 




GO GET NEXT WORD 


3AD00480 


0025 





C008 




LD 


CHKSM 




GET SUM OF 0024 THRU 004F 


3AD00490 


0026 





4820 




BSC 


Z 




SKIP 


IF CHKSM ZERO 


3AD00500 


0027 





30F1 




MA IT 


-15 




CHECK 


SUM ERROR 


3AD00510 


0028 





6033 


ENDCK 

* 
* 


LDX 


SRTRD 




START 


LOADING 


3AD00520 
3AD00530 
3AD00540 


0029 





0800 


K0800 


DC 


/0800 








3AD00550 


002A 





0000 


STRD 


DC 











3AD00560 


002B 





4001 


K4001 


DC 


/4001 








3AD00570 


002C 





0026 


LAST 


DC 


/0026 








3AD00580 


002D 





0000 


RESET 


DC 


*-* 








3AD00590 


002E 





001B 


CHKSM 


DC 


/001B 








3AD00600 


002F 





8031 


C0N1 


A X 


80-STRT 


-3 






3AD00610 


0030 





0001 


ONE 

* 


DC 


/0001 








3AD00620 
3A000630 
3AD00640 


























* 




THESE INSTRUCTIONS LOAD THE REST 


3AD00650 








* 




OF THE 


LOADER. 




3AD00660 
3AD00670 


























* 












3AD00680 


0031 





0000 


INT 


DC 











3AD00690 
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0032 6037 



0033 





08F6 


0034 





08F7 


0035 





4804 


003 6 





6034 


0037 





8000 


0038 





8800 


0039 





1808 


003A 





2000 


003 B 





0000 


003C 





1000 


003D 





0000 


003E 





C0F9 


003F 





80F0 


0040 





DOFA 


0041 





80EE 


0042 





D0F5 


0043 





C0F9 


0044 





80EB 


0045 





D0F7 


0046 





F0E5 


0047 





4820 


0048 





6037 


0049 





7006 


004A 






004 F 





004E 



LDX 

SRTRD XIO 
XIO 
BSC 
LDX 



PACK 

EOR 
STO 



END1 

WC 

* 



DC 

DC 

SRA 

DC 

DC 

DC 

DC 

LD 

A 

STO 

A 

STO 

LD 

A 

STO 

EOR 

BSC 

LDX 

MDX 

ORG 

DC 



PACK 

STRD 
RESET-1 
E 
SRTRDS1 

/8000 

/8800 

8 

/2000 



/1000 



PACK61 

ONE 

E0RS1 

ONE 

PACK&l 

ST0C1 

ONE 

ST0S1 

LAST 

Z 

PACK 

CARD2 

79 

78 



LD L RDINS1 

EOR L RDIN 
STO L RDIN 



PACK AND 
STORE 8-8 

LOADER CARDS 







0000 


* 




CARD 2 STARTS HERE 


0050 


* 
RDIN 


BSS 





0050 





COFE 


CARD2 


LD 


WC 


0051 





D400 009D 


ST OWC 


STO L WC678 


0053 





C0D6 




LD 


STRD 


0054 





80FA 




A 


WC 


0055 





D0D4 




STO 


STRD 


0056 





COFB 




LD 


ST0WCS1 


0057 





80F7 




A 


WC 


0058 





D0F9 




STO 


ST0WCS1 


0059 





C0F5 




LD 


WC 


005A 





1801 




SRA 


1 


005B 





80 DO 




A 


LAST 


005C 





DOCF 




STO 


LAST 


005D 





C006 




LD 


COUNT 


005E 





80D1 




A 


ONE 


005F 





D004 




STO 


COUNT 


0060 





F004 




EOR 


K0004 


0061 





4820 




BSC 


Z 


0062 





70D0 




MDX 


SRTRD 


0063 





6078 




LDX 


SRTR2 




* 




CONSTANTS AND BUCKETS 



0064 0000 

0065 0004 

0010 
0058 
0059 
005A 
005B 

0066 OOOF 

0067 4E00 



COUNT DC 
K0004 DC 

INPUT ECU 
INWC EQU 
INWC1 EQU 
INAD EQU 
INAD1 EQU 
STRD2 DC 



DC 




/0004 

/0010 

INPUT672 

INWCS1 

INPUT674 

INADE1 

INPUT-1 

/4E00 



CARD INPUT AREA 
WORD COUNT IN CARD 

ADDRESS IN CARD 



3AD00700 
3AD00710 
3AD00720 
3AD00730 
3AD00740 
3AD00750 
3AD00760 
3AD00770 
3AD00780 
3AD00790 
3AD00800 
3AD00810 
3AD00820 
3AD00830 
3AD00840 
3AD00850 
3AD00860 
3AD00870 
3AD00880 
3AD00890 
3AD00900 
3AD00910 
3AD00920 
3AD00930 
3AD00940 
3AD00950 
3AD00960 
3AD00970 
3AD00980 
3AD00990 
3AD01000 
3AD01010 
3AD01020 
3AD01030 
3AD01040 
3AD01050 
3AD01060 
3AD01070 
3AD01080 
3AD01090 
3AD01100 
3AD01110 
3AD01120 
3AD01130 
3AD01140 
3AD01150 
3AD01160 
3AD01170 
3AD01180 
3AD01190 
3AD01200 
3AD01210 
3AD01220 
3AD01230 
3AD01240 
3AD01250 
3AD01260 
3AD01270 
3AD01280 
3AD01290 
3AD01300 
3AD01310 
3AD01320 
3AD01330 
3AD01340 
3AD01350 
3AD01360 
3AD01370 
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0068 





0000 


CKSUM 


DC 









3AD01380 


0069 





4F01 


REST2 


DC 


/4F01 






3AD01390 


006A 





0000 


CDCNT 


DC 









3AD01400 


006B 





OOOF 


IPACK 


DC 


INPUT- 


-1 




3AD01410 


006C 





0001 


0NE2 
* 


DC 


/0001 






3AD01420 
3AD01430 


006D 





0010 


C0L1 


DC 


/0010 




INPUT AREA START 


3AD01440 


006E 





0000 


INCOL 


DC 


*-* 




ADDR OF FIRST HALF WD 


3AD01450 


006F 





0000 




DC 


*-* 




ADDR OF SECOND HALF WD 


3AD01460 


0070 





0000 


ADDR 


DC 


*-* 




CURRENT CORE ADDR 


3AD01470 


0071 





0000 


WDCNT 


DC 


*-* 




WORD COUNT 


3AD01480 


0072 





005F 


C0L78 


DC 


INPUTS79 


LAST CHECKSUM COL 


3AD01490 


0073 





FFFF 


NONE 


DC 


-1 




NEGATIVE ONE 


3AD01500 


0074 





0002 


TWO 


DC 


/0002 






3AD01510 


0075 





0086 


INTE 


DC 


INT4 




INTERRUPT ENTRY 


3AD01520 


0076 





004E 


WC2 


DC 


/004E 




WORD COUNT 


3AD01530 


0077 





0003 


K0003 


DC 


/0003 






3AD01540 
3AD01550 
























* 










3AD01560 








* 




THE REMAINING INSTRUCTIONS LOAD 


3AD01570 








* 




THE PROGRAM DECK. 


3AD01580 
3AD01590 
























* 










3AD01600 


0078 





COFC 


SRTR2 


LD 


INTE 






3AD01610 


0079 





D092 




STO 


12 




INTERRUPT VECTOR 


3AD01620 


007A 





C0E8 




LD 


COUNT- 


-1 


INITIALIZE LOADER 


3AD01630 


007B 





D0D4 




STO 


/0050 




RETURN POINT 


3AD01640 


007C 





C0F9 




LD 


WC2 






3AD01650 


007D 





0091 


* 


STO 


INPUT- 


1 


WORD COUNT 


3AD01660 
3AD01670 
3AD01680 
























* 




CARD READ 


SECTION 


3AD01690 








* 




READ PROGRAM CARDS INTO /0010 - /005F 


3AD01700 
3AD01710 
























* 










3AD01720 








* 










3AD01730 


007E 





08E9 


SRTR3 


XIO 


REST2- 


-1 


SENSE DSW 


3AD01740 


007F 





4804 




BSC 


E 




SKIP IF READY 


3AD01750 


0080 





7001 




MDX 


*U 






3AD01760 


0081 





7002 




MDX 


*C2 






3AD01770 


0082 





30F8 




WAIT 


-8 




NOT READY 


3AD01780 


0083 





70FA 


# 


MDX 


*-6 




LOOP 


3AD01790 
3AD01800 


0084 





08E1 




XIO 


STRD2 




INITIATE READ 


3A001810 


0085 





4878 




BOSC 


£-Z 




UNCOND LEAVE INTERRUPT 


3AD01820 


0086 





0000 


INT4 


DC 


#-* 




INTERRUPT ENTRY 


3AD01830 


0087 





08E0 




XIO 


REST2- 


•1 


SENSE RESET 


3AD01840 


0088 





FOEE 




EOR 


K0003 




CHECK FOR CHANGES 


3AD01850 


0089 





4848 




BOSC 


£ 




SKIP IF ANY CHANGE 


3AD01860 


008A 





70FC 


* 


MDX 


*-4 




LOOP TIL OP COMP 


3AD01870 
3AD01880 


008B 





08DC 




XIO 


REST2- 


•1 


SENSE DSW 


3AD01890 


008C 





1002 




SLA 


2 






3AD01900 


008D 





4810 




BSC 


- 




SKIP IF ERROR 


3AD01910 


008E 





7002 




MDX 


CDOK 




BR ON NO ERROR 


3AD01920 


008F 





30F5 




WAIT 


-11 




2501 READ ERROR 


3A001930 


0090 





607E 


* 


LDX 


SRTR3 




RETRY 


3AD01940 
3AD01950 
3AD01960 
























* 




CHECKSUM 


SECTION 


3AD01970 








* 




ADD COLUMNS 1-78 AND CHECK FOR ZERO 


3AD01980 
3A001990 
























* 










3AD02000 


0091 





1010 


CDOK 


SLA 


16 






3AD02010 


0092 





00D5 




STO 


CKSUM 




CLEAR CHECKSUM 


3AD02020 


0093 





C009 




LD 


C0L1 




SET UP 


3AD02030 


0094 





D0D9 




STO 


INCOL 




INPUT AREA 


3AD02040 


009 5 





8006 




A 


0NE2 




ADDRESSES 


3AD02050 
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0096 D0D8 

0097 C480 006E 
0099 1808 
009A F480 006F 
009C 80CB 
009D DOCA 



009E 





COCF 


009 F 





80D4 


OOAO 





DOCD 


O0A1 





80CA 


00A2 





DOCC 


00A3 





FOCE 


00 A4 





4820 


00A5 





70F1 


00A6 





C0C1 


00A7 





4820 


00A8 





7001 


00A9 





7002 


OOAA 





30F7 


00 AB 





70E5 



OOAC COCO 
OOAO DOCO 
OOAE 80BD 
OOAF DOBF 



OOBO 





C0A9 




00B1 





1808 




00B2 





F0A8 




00B3 





DOBC 




00B4 





C0A3 




00B5 





1808 




00B6 





F0A2 




O0B7 





D0B9 




00B8 





C480 


006E 


OOBA 





1808 




OOBB 





F480 


006F 


OOBD 





D480 


0070 


OOBF 





F480 


0070 


00C1 





4820 




00C2 





7001 




00C3 





7002 




00C4 





30FC 




00C5 





70F2 




00C6 





COAA 




00C7 





80AB 




00C8 





D0A8 




00C9 





4820 




OOCA 





7008 





DATE 
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STO 


INC0LS1 




3AD02060 




* 








3AD02070 




CSLD 


LD I 


INCOL 


LOAD FIRST HALF WD 


3AD02080 






SRA 


8 


SHIFT 


3AD02090 






EOR I 


INC0L61 


COMBINE SECONE HALF 


3AD02100 






A 


CKSUM 


ADO TO CHECKSUM 


3AD02110 






STO 


CKSUM 


STORE RESULT 


3AD02120 




* 








3AD02130 






LD 


INCOL 


* 


3AD02140 






A 


TWO 


INCREMENT 


3AD02150 






STO 


INCOL 


INPUT AREA 


3AD02160 






A 


0NE2 


ADDRESSES 


3AD02170 






STO 


INC0L61 


# 


3AD02180 






EOR 


C0L78 


CHECK FOR LAST COL 


3AD02190 






BSC 


Z 


SKIP IF LAST COL 


3AD02200 






MDX 


CSLD 


CONTINUE 


3AD02210 




* 








3AD02220 






LD 


CKSUM 


CHECK FOR VALID CHECKSUM 


3AD02230 






BSC 


Z 


SHIP IF OK 


3AD02240 






MDX 


*ei 




3AD02250 






MDX 


CSOK 


BR TO MOVE ROUTINE 


3AD02260 






WAIT 


-9 


CHECKSUM ERROR 


3AD02270 






MDX 


CDOK 


RETRY CHECKSUM 


3AD02280 




* 








3AD02290 
3AD02300 














* 




MOVE AND 


CHECK SECTION 


3AD02310 




* 




PACK EACH 


TWO COLUMNS INTO ONE WORD 


3AD02320 




* 




AND MOVE 


TO THE PROPER LOCATION. 


3AD02330 




* 




COMPARE WHAT WAS MOVED TO PACKED 


3AD02340 




* 




WORD. 




3AD02350 
3AD02360 
3AD02370 




* 










CSOK 


LD 


C0L1 


SET 


3AD02380 






STO 


INCOL 


INPUT AREA 


3AD02390 






A 


0NE2 


ADDRESSES 


3AD02400 






STO 


INC0LE1 




3AD02410 




* 








3AD02420 






LD 


INAD 


SET 


3AD02430 






SRA 


8 


CURRENT CORE 


3AD02440 






EOR 


INAD1 


LOCATION 


3AD02450 






STO 


ADDR 


FROM CARD 


3AD02460 




* 








3AD02470 






LD 


INWC 


SET NUMBER 


3AD02480 






SRA 


8 


OF WORDS 


3AD02490 






EOR 


INWC1 


TO BE MOVED 


3AD02500 






STO 


WDCNT 




3AD02510 




MVLD 


LD I 


INCOL 


LOAD AND 


3AD02520 






SRA 


8 


PACK 


3AD02530 






EOR I 


INCOLtl 


THE WORD 


3AD02540 






STO I 


ADDR 


STO AT CURRENT ADDRESS 


3AD02550 






EOR I 


ADDR 


COMPARE TO ACC 


3AD02560 






BSC 


Z 


SKIP IF MOVE OK 


3AD02570 






MDX 


*ai 


ERROR 


3AD02580 






MDX 


MVOK 




3AD02590 






WAIT 


-4 


MOVE ERROR 


3AD02600 






MDX 


MVLD 


RETRY MOVE 


3AD02610 




* 








3AD02620 




MVOK 


LD 


WDCNT 


CHECK IF ALL WORDS 


3AD02630 






A 


NONE 


MOVED 


3AD02640 






STO 


WDCNT 


DECREMENTED WORD COUNT 


3AD02650 






BSC 


Z 


SKIP IF LAST WORD 


3AD02660 






MDX 


MVIN 


BR TO INCR ADDR AND CONT 


3AD02670 




* 








3AD02680 












3AD02690 














* 




END OF MOVE. 


3AD02700 




* 




CHECK FOR 


END CARD AND REINITIALIZE 


3AD02710 




* 




ADDR. 




3AD02720 












3AD02730 
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OOCB 
OOCC 






C0A4 
1806 




LD 
SRA 


ADDR 
6 


CHECK FOR LAST CARD 
ADDR LESS THAN 40 


OOCD 





4820 




BSC 


Z 


SKIP IF LAST CARD 


OOCE 





70AF 




MDX 


SRTR3 


BR TO READ NEXT CARD 


OOCF 





C093 




LD 


COUNT-1 


INITIALIZE LOADER 


OODO 





D400 0050 




STO 1 


L /0050 


RETURN POINT 


001)2 





6004 


* 


LDX 


/0004 


BR TO BEGIN PROGRAM 


0003 





C09A 


MVIN 


LD 


INCOL 


INCREMENT 


O0D4 





809F 




A 


TWO 


INPUT AREA 


00D5 





D098 




STO 


INCOL 


ADDRESSES 


00D6 





8095 




A 


0NE2 




0007 





D097 


T= 


STO 


INC0LS1 




00D8 





C097 




LD 


ADOR 


INCREMENT 


00D9 





8092 




A 


0NE2 


CURRENT 


OODA 





0095 




STO 


ADDR 


STORE ADDRESS 


OODB 
00i)C 





70DC 
0000 




MDX 
END 


MVLD 



BR TO MOVE NEXT WORD 



NO STATEMENTS FLAGGED IN THE ABOVE ASSEMBLY 



3AD02740 
3AD02750 
3AD02760 
3ADO2770 
3AD02780 
3AD02790 
3AD02800 
3AD02810 
3AD02820 
3AD02830 
3AD02840 
3AD02850 
3AD02860 
3AD02870 
3AD02880 
3AD02890 
3AD02900 
3AD02910 
3AD02920 
3AD02930 



C R 

NAME 

ADDR 

CARD2 

CDCNT 

CDOK 

CHKSM 

CKSUM 

C0L1 

C0L78 

C0N1 

COUNT 

CSLD 

CSOK 

ENUCK 

END1 

EOR 

I NAD 

INAD1 

INCOL 

INPUT 

INT 

INTE 

INT4 

INWC 

INWC1 

I PACK 

K0003 

K0004 

K0800 

K4001 

LAST 

MVIN 

MVLD 

MVOK 

NONE 

ONE 

ONE 2 

PACK 

RDIN 

RESET 

REST2 

SRTRD 

SRTR2 

SRTR3 

START 

STO 

STOWC 

STRD 

STRD2 

STRT 

TWO 

WC 

WC2 

WDCNT 



S S 
VALU 
0070 
0050 
006A 
0091 
002E 
0068 
006D 
0072 
002F 
0064 
0097 
OOAC 
0028 
0049 
003A 
005A 
005B 
006E 

0010 

0031 

0075 

0086 

0058 

0059 

006B 

0077 

0065 

0029 

002B 

002C 

00D3 

00B8 

00C6 

0073 

0030 

006C 

0037 

0050 

002D 

0069 

0033 

0078 

007E 

0000 

003C 

0051 

002A 

0066 

00 1C 

0074 

004F 

0076 

0071 



REFERENCE 
t REFERENCES 

00B3,00BD,00BF, OOCB, 00D8, OODA 
0049 

008E,00AB 

001C,001E,0025 

0092,009C,009D,OOA6 

0093, OOAC 

00 A 3 

0022 

005D,005F,007A,OOCF 

00A5 

00A9 



0006,0007,0010,0040 

OOBO 

00B2 

°^. 0096, 0097, 009A,009E,0OAO,OOA2,O0AD,00AF,00B8,OOBB,O0D3,OOD5 

0066, 006B, 0072 ,007D 

OOOC 

0078 

0075 

00B4 

0OB6 

0088 
0060 

0009,0016 

0014, 0015, 0046, 005B,005C 

OOCA 

00C5.00DB 

00C3 

00C7 

OOOF, 00 12, 0020, 003F, 0041, 0044, 005E 

0095,00A1,00AE,00D6,00D9 

0000, 0002, 0003, 0013, 0032, 003E, 0042, 0048 

OOOA, 0018, 0034 

007E,0087,008B 

0028,0036,0062 

0063 

0090, OOCE 

0004,0005,0011,0043,0045 
0056,0058 

OOOE, 00 19, 0033, 0053, 005 5 
0084 

001F, 0021, 0024, 002F 
009F,00D4 

00 IB, 0050, 005 1,0054, 0057, 0059 

007C 

00B7,00C6,00C8 
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